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ABSTRACT 


A BORTRATT program package, which can read a BORTRAH 
program segment and store it in the form of a flowgraph 
and which can convert the flowgraph back into BORTRAR 
program, was designed and implemented. The package essen- 
tially processes one statement at a time imtil end of the 
program segment is reached. This package can become a part 
of a large system^, using which automatic program manipula- 
tions can be achieved. 



CHAPTER 1 


IITRODHGTIOH AND MOTIVATION 
1-1. INTRODUCTION 

Automatic program manipulation techniques will greatly 
simplify the problems of a user, who wants to write programs. 
He can save a lot of time, thus enabling him to focus his 

attention on more creative aspects of programming. Examples 
of manipulations on a program are optimisation, block iden- 
tification, dataflow analysis, structure refining etc,, of 
the given program [Baker, 1977, Lowry and Medlock, 1969, 
Standish, et. al. , 1976, avnd Schneck and Angel, 1975]. 

Optimisation of a program is in terms of execution 
speed improvements. Given any source program, we should be 
able to manipulate it to come out with a highly optimised 
equivalent program. Thus the task of writing programs be- 
comes easy for a user as he is relieved of writing efficient 
code. We can say that the advantage of above manipulation 
is that it transfers the lengthy, error prone, and essen- 
tially clerical task of source code optimization from the 
programmer to the computer. 

Block identification of a program is also useful as 
one can see the control flow of the program. Various loops 
present in the program etc, , can be identified easily. Data 
flow analysis of a program gives out details of different 
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variable s like ■where they are defined and where they are 

used etc. For example, given a program point, by means 

can 

of this manipulation we/ get infoimation about what data de- 
finitions are ‘live' at that point, that is, what data de- 
finitions given before this point are used after this 
point. So a user can be informed that a variable has been 
defined but never used, perhaps an indication of a typo- 
graphical error. 

Having seen that automatic program manipulation tech- 
niques are indeed helpful to a user, we now see how they can 
be achieved. The basic needs to achieve them are as follows. 

1, The program shou3.d be stored in such a format 
that it is suitable for efficient manipulation. 

2. Control flow information of the program should 
be easily available. 

Data flow in the form of symbol t.a.ble(s) should 
be available. 

Storing the given program in the form of flowgraph, 
and maintaining different symbol table(s) will satisfy the 
above requirements. In this project a PORTRM program 
package, which can read a FORTRAN program segment and store 
it in the form of flowgraph, and which can convert the flow- 
graph back into FORTRAN program was designed and implemented. 
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FORTEAN was chosen as source language because in this 
computer centre, FORTRAN is widely used and so this package 
will he useful, To make the system written machine indepen- 
dent, it was written entirely in MSI standard FORTRM'* 

1-2. OTBRYIEW OF CHAPTERS 

Chapter 2 describes the strategy adopted in the design 
and implementation of the package. Chapter 3 describes the 
way in which source program is stored and overall organiza- 
tion of the system. The various routines of the system are 
explained in Chapters 4, 5 and 6, Chapter 7 gives the future 
work tha.t can be done and conclusions. This is followed by 
bibliography and appendix. 


CHAPTER 2 


STRilTBGY ADOPTED 

As the hardware techniques are improving, the hardware 
cost of computers is decreasing very rapidly. But unfortu- 
nately the same is not the case with software. The high 
cost of programming is largely due to the complexity of 
programs. As a result of this complexity the program deve- 
lopment process is marked by large number of mistakes and 
great dea.1 of waste and rework, large programming projects 
in the past have reported coding rates of two to three sta.te- 
ments per man-day. Since it would hardly take ten minutes 
to write three statements, it is very much clear tha.t a lot 
of time was being wasted in debugging and recodiih^g-' parts of 
the system. Eew techniques like top-down ddsign greatly re- 
duce this waste, ¥e discuss about this later in the cha-pter. 

There are two other important factors which require spe- 
cial emphasis. They are software maintenance and modifica- 
tion, These account for substantial portion of total software 
expenditure, A program which is ea.sy to read and understand 
will greatly decrease the cost of program development and 
maintenance. We tried to develop programs which are less 
complex and are easy to read and understand. Some of the 
techniques used to achieve these are as follows. 
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2~1. TQP~DQ¥I BE SIGH 

Top-down design technique was adopted in the design for 
the following reasons. In top-down design, p rogreia develop- 
ment "begins at the top most functional level and proceeds 
decrement ally to the lowest functional level. The "basic 
function is "broken down into more detailed su"bf unctions. 

The process is continued until all su'b— functions are defined 
to a consistent level of detail. Top-down design provides 
for orderly logic development end reduces the complexity of 
the programs that result from the design. ¥hen we are fini- 
shed with top-down design process, we will know about all 
of our interfaces and logic decisions, 

2~2. MODUIE DIVISIOH 

Parnas’ principle of information hiding [Pamas, 1972] 
was used in deciding the modules of the ^jrstem. Each module 
designed to hide a design decision which is likely to 
change. In this way only one module will be affected if we 
want to change a design decision. So using this idea a data 
structure, its internal linkings, accessing procedures and 
modifying procedures become a part of a module. Also charac- 
ter codes and similar data were hidden into a module for 
greater flexibility. Storage requirements of a data struc- 
ture were also hidden in modules, so th-at if need arises 
they can be manipulated easily. 
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2-3. M IMPISMBNTATIOI TECHNIQUE 

A technique used in the implementation stage of the 
system is as follows. All the programs were first written 
in a pseiffilo computer language "before coding them in PORTRAIT. 
Most of the control constructs and other features of Pascal 
[Wirth, 1973 ] were included in this pseudo computer language. 
Some of the features of the language are as follows. 

Basic symbols; 

letters a . . . z 

digits 0125456789 

arithcetic + - / t 

operators:; 

logical operators V A ^ • r 

relational operators = 5 ^ < 4 ^ ^ 
parentheses ( ) 

statement brackets begin end 

a.ssignment ^ 

operator 

quote mark ’ 

seperator > 

jump operator £o _to label 

Oompound sts,tements; begin SI; S2; . . . , Sn end 

Conditional sta-tements; B then SI e Ise 32 

if B then SI 

Repetitive statements: while B ^ S od 

repe a,t S until B 

for variable = initial value 

final value dn 
S p d 

Selective statements: case class of lil:'Sl; 12;S2; 

Ln: Sn end 

Comment statements: comment: text; 

The features were so chosen that the program written 
in this language is easy to read and understand. ^ 
statements are used only when there is no better way to 
describe the flow of control. Much importance was not given 
to the syntax of the language since it is sufficient if we 
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understand the logic of the program written. 

So all the programs were first written in this pseudo 
computer language and they were thoroughly read to find any 
logical errors. In fact errors were detected at this stage 
only and they were corrected. Thus we could correct most 
of the errors even before coding them in PORTRAIT, thus saving 
a lot of computer time. Using this technique we could debug 
a system consisting of about 85 routines in about ten days. 

Using the above said techniques, the system was designe'"'' 


and implemented. 



OHiPTBR 3 


IE TAILS OF IE SIGN 

In this chapter we describe how the given FORTRAN pro- 
gram is stored in the form of flowgraph and the overall or- 
ganisation of the package. In Section 1, the way in which 
FORTRAN program is represented in the form of flowgraph and 
the necessary data structures required to store the necessary 
information are discussed. In Section 2 overall organisation 
and main components of the package designed are given. 

5-1* KB PRESENTATION of fortran PROGRAM AS FLOWGRAPH 

The given FORTRAN program is to be represented in such 
a form that it can be manipulated easily. To accomplish this, 
the FORTRAN program is broken into ’basic blocks’ [Schnek, 
1973 ] whose relationship may be represented by a directed 
graph that illustrates the flow of control through the pro- 
gram. 

basic block is a set of statements with a single 
entry noint and a single exit -point . This means that one can 
only branch to the first statement of the set of statements 
of basic block and only the last statement of the set con- 
tains a branch to one or more basic blocks. It follows from 
the above definition of the basic block, that before a given 
statement of a basic block is exe:;uted, all statements pre- 
ceding it must have been executed. In other words all state- 
ments of a basic block are executed sequentially from entry 
to exit. 
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Basic blocks are made of a niomber of successive execu- 


table statements, limited by following rules. 

A basic block be gins ^ 

(1) if a statement number occurs ioS,, a statement 
with, statement number is seen. In thio, format 
statement numbers are to be excluded. 

(2) after logical IF, arith.me.tic IF, all types of 
GO TO statements, DO statement, and STOB/EETUEN 
statement, 

A basic block ends, 

(1) immediately before a statement having statement 

number. In this also we have to exclude fon* 
mat statement numbers. 

(2) with statements like D-ogical IF, arithmetic IF, 
all types of GO TO statements, STOP/EE IIEEdl state- ■ 
ment, and end of range of a DO statement. 

However, logical IF statements produce two basic blocks. 
The statement following the logical expression will form 
a seperate basic block. DO statements are tackled as fo- 
llows. DO statement is converted into corresponding logi- 
cal IF statement. An example makes this clear. 

DO 12 I = 1,10 1 = 1- 

Y _ y -1 coHT.iFn[ig''H: , 

X T 

* « 

• V. ♦ 

(^0 TO 12 " GO TO 12 

» 

12 P 1 Q 
I = I-M 

IF(l.IiE.10)G0 TO -1 


12 P = Q 
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Successive negative integers from -1 onwards a.re 
assigned to successive DO statements in their order of 
appearance. For easy recognition of DO sta.tements, ne- 
gative statement numbers are given to them. 

All declarative statements a.re stored in a sepa:.rate 
block called declarative block. This causes all decla- 
rative statements to be together in keeping with the 
standard. 

The control flow information and the set of state- 
ments of a basic block are stored as follows. 

The information pertaining to a basic block is stored 
in two blocks called flow block and code block. The flow 
block contains information which points to a list of all 
blocks that could be executed immediately after this block. 
Such blocks a,re called ' successors * of a given block. Also 
the flow block points to the corresponding code block which 
contains the set of statements pertaining to this block. It 
will also have the information regarding the type of seg- 
ment (main or subroutine etc, ) to which the block belongs 
and the statement number which '.-igfcarts this block. The exact 
data structure of flow block is as follows: 

Type : 

Stmt. No. 

Pointer to code block i 

Pointer to successor block | 

Pointer to successor block ^ 

• ! 

; I 

Pointer to successor block 1 
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As mentioned earlier, the code block contains the set 
of statements of the corresponding basic block. All the 
statements axe stored as a string, separated by end markers. 

In addition, different tables are maintained to store 
the necessary information. For example, a simple variable 
when first enconntered will be entered into a simple varia- 
ble table. Similax is the case with others. The different 
tables that are maintained are - 

1. Comment and Format table 

2. Constant table 

3. Dimensioned variable table 

4. Simple variable table 

5 . Subprogram /function name table 

6. Statement number table. 

In the code block, all the statements are stored in 
terms of entry numbers of the corresponding tables. This 
makes the code block easy to manipulate and offers a saving 
of storage also. The exact data structures of all the tables 
are as explained below. 

Comment and Format Table; In this table, all comment 
statements and forma.t statements are stored. Also the class, 
which indicates comment or format, and the length of the 
statement in terms of number of chaxacters are stored. The 
data structure is as shown below. 


' Class 

Length 

Statement 

Continuation 

mark 

1 ’ 
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If the length of the statement exceeds 72 characters, 
then a 1 is put in continuation mark location and the rest 
of the statement stored in the next entry. 

Constant Table; In this table, all constants (real, 
integer, and hollerith constants) are stored. This table 
also contains the class of constant and the length of the 
constant. The data structure is as shown below. 


0 1 _ 2 19 20 

—I — ... , I... 


Class 

length 

Constant 

Conti- 




i 


If the length of constant exceeds 17 characters, then 
a 1 is stored in 'continuation mark' and rest of constant 
stored in the next entry, 

D 3 men si one d Variable Table: In this table all dimen- 
sioned variables are stored along with necessary details. 
The data stmcture of the table is as shown below. 


0 ] 

1 

8 9 

10 13 

■ length 

' ■■■■■ 

Name 

Bxpt3?[) 

bit 

type ; 

■ NOo of 
arg. 

arg. 1 


1 



1 

1 

L. 
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ex].typ bit = 1, if mode of var, has been declared 

explicitly. 

= 0, otherwise. 

If made has been de leaned explicitly, then 
typcl = 0 for integer 
= 1 for real 
= 2 for logical 
= 3 for complex 
= 4 for double precision 

No,’ of arg = 1, if l-D array 

=2, if 2-D array 

= 3 , if 3-D array 

Variable arg. (1:3) contains the maximtun arguments de- 
clared, in terms of the entry points in the constant table. 
S imple Variable Table; In this table all simple varia- 
bles, with necessary details are stored. The data structure 
is as shown below. 
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exptyp bit = 1, if mode of var. has been declared 

explicitly 
= 0, otherwise. 

If mode has been declared explidci-t^yy - then 
typcl = 0 for integer 
= 1 for real 
= 2 for logical 
= 3 for complex 
= 4 for double precision. 

table; 

Subnrogram/ Function Name Table: In this/ names of all 
subprograms, function names are stored with necessary details, 
Fata structure is shown below. 


0 1 7 8 17 18 19 20 

! i r— : r 1 


Length 

Name 

' 

No. of 
arg. 

- . 1 1 w .1 .1 .11 ^ - t 

a,rg. 1 cont. def . | def, 

! mrk. : bit ; ent. ■ 

1 i L __ 

i 

i 


1 

1 

1 

i 

i 

1 

1 i 

t 1 1 

, ; 

1 ; 

! 

I ! 

1 > 1 

i 1 

» 1 

— \ ^ 

! 

i 

1 
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Variable 1“ o . of arg . gives how msny arguments a sub- 
routine or function has and axg contains all the arguments 
in terms of entry numbers in tables. If the number of argu- 
ments exceed nine, then cont. mrk . is ma.de 1 and the rest 
of arguments stored in the next entiy. 

def. bit =0, if subroutine 

= 1, if statement function 
=2, if function subprogram 
= 3 , if declared jn external. 

The varia.ble d ef ent is defined only for sta.tement func- 
tions and points to location where statement is actually 
stored. 

Statement Number Table; All statement numbers are 
entered into this table. The data structure is as follows: 


0 1 2 3 


1 

1 statement 
number 

fmtflg 

link 

1 

1 i 

i 

1 



fmtflg = 1, if format statement number 
= 0, otherwise. 

Eor format sta.tement numbers, the link points to the 
entry of format statement in comment and format ta,ble. 
Otherwise, the link points to the flow block corresponding 
to this statement nvunber. 
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3-2. O^TlRALIi ORGMISATIOl MD MAIN GOMPOMTS 

The overall organisation of the package is given in 
terms of modified structured charts [Stevens, et. al. , 1974], 
These charts were chosen as they descrihe program functions 
from the topmost level to great detail and the charts also 
serve as final programming documentation. These charts 
show how each function is divided into sub-functions. 

Only main components of the package are described here. 
Some of the definitions of symbols used in the charts are as 
follows. 

S? 7 mbol Definition 

I A ! module 



predefined module 




Module ^invokes 
module 




Module A invokes modules 
B and G. V/here possible 
modules are placed left 
to right in likely order 
of invokation. . 
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3-21. Organisation of the Program wh-ich Converts a 
Given FORIBAI Program into Plow-grap b 


jConvert! 
■ Graph j 
’ 


iProcessI 

Segmentj 


Get 

Statement 


{Collect Ai 
Istatement I 


jLexic^ Ana.iysej 
I Sta-tement j 

Figure 3-1. 


iProcess 

Segment 


I 


-I .. 


ilnitialise” Sll 
tables, etc. 


[Create 

{segment 

{header 


(P roc ess' stmt s ^ 
excluding 
'MB' 


j 


process | 
' ’END ’ 

I stmtt' 


!t 


iProcessi 
Stmt, 


{ 1 

Get "Ij 

1 t 

Stmt. j| 


Figure 3—2 
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iProcess j 




1 stmt 
J 

:-.j 



G omme nt j 

i dccl. 1 

Stmt . 

FORMAT 

stmt . j 

stmt. i 

i 

function 

L _ .. 

stmt. 


Enter' 
comment and | 
I form at tablej 
i and int o j 
|code block ) 


[Decl. 
Stmt . 


Enter 

iinto 


Others 


subroutine/ 
[function 
iname table 
land into 
jcode blo(^ 


Enter into 
comment end 
format table 
and adjust 
link of stmt, 
no. in stmt, 
ino . t ab le , 



Figure 3—3. 


D0 


stmt . 


jPROCBSS D0 i 


Process 

Block able Stmt. 


non- con- 
stmt. 


itrol 


I 


Logical IP 


iProcess 
jnon-con- 
stmt . 




Oo 

th^f: 


)ther 

,Bin) 



Process t 

‘Process Control 


Logical IP 

[O/T LOG. IF, DO, 


L... . _ _ 1 

[BED 


Figure 3-4. 


jPush the 
I stmt. no. 
jdummy entry 
.no . , D0 
jpar. entries 
liS-llo.. st ack _ 


Process 



Enter DO 
^assignment 
:Btmt . in j 
cpd.e J?lock] 


:Ti'Find up | 
flow and! 
icode 
blocks 


Idpen j 
;new i 
{blocks ! 


B nt’ef” dummy ' 
stmt. no. and 
*CORTIIIUB » 
in code blockj 


Figure 3-5 
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Enter stcat. 
into code 
"block 

i 

Process if . 
end of L0 


I . . . 

Enter dovar = dovar+Stepj- 


'¥ ind 


Open nc^i I 

test of dovar into code ’ 


flow 


blocks 1 

"block 


:and 


and enter 1 



code 


'coitiele; 



"blocks 


in code | 





block 1 


Pigure 


3-6, 


Process Logical IF 

ntrcT" ^ .’~z '7Z. 


t 


3nter Expr, in code 


Process 

block, G-et new 


target of 

blocks 

— 


logical IF 


=n,, „ 

Process if 
end of 


f 

i 


Figure 3-7» 


Process target of 
logic al IF 



non-control 


control o/t 

F c 

i 



log. IF. DO, EEL 


Process 


■trocesBj ^ 

f ' 

1 

ion- 

-control 


controll ^ 

■ Error 

target 


target | j 




Otb ' ’’s 


Figtrre 3-3 












20 


3-22. Organisation of prog, which converts flow-graph 
into FORTRM program. 


Convert Program 


jprint 
I segment 


iPrint all 


Print all 


jDe cl. 


stmts, of 


'•Stmts. 


all code 




blocks 



Print all 
stmts .and 
’END’ 


POHIAT 1 


Figure 3-9 



CHAPTER 4 

DETAILS OP SUPPORTING ROUTINES 


In this chapter the details of all supporting routines, 
which are used hy input part which stores given PORTRAN pro- 
grsjn in the form of flow graph, and output part which prints 
out PORTRAN program from the infoim'ation collected from flow- 
graph, are given. Some of the routines are used hy "both 
parts. Bach routine is explained in detail so that one can 
easily understand the working of it. Parameters, hoth input 
as well as output,' of each routine, and their fimctions are 
also explained. 

4-1. OPERYIEW OP DIPPEBENT SECTIONS 

In Section 2, the routine collect a statement is explain- 

in 

ed. In Section 5, the lexical analyser and/Section 4 all 
table hcindling routines are explained. In Section 5, routines 
dealing with flow, code, and declarative blocks are explained. 
4-2. COLLECT A STATEIffiN T 

A steiement from the input program is collected by the 
routine, ceiled 'clstmt'. The routine alongwith its para- 
meters is 

clstmt ( stmt ( 1: 700 ) , temp ( 1; 72 ) , endf le , 

Instmt, error ; 

In this procedure the input parameter is temn(l; 72) , 
and output parameters are stmtCl; 700) . temx)( 1; 72) . endf le . 
Istmt . and error . The significance of each parameters is 
as’ follows: 
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When this procedure clstmt is called, a card from the 
input is already present in variable temr>( 1: 72) . First the 
procedure transfers this card into stjiit( 1; 700 ) . If this is 
a comraent card then it returns control, after reading next 
card into temnC 1; 72) . Otherwise it reads next card into 
tem.~p( 1; 72) and checks for a continuation mark in column 6, 
if it is not a. comme-nt card. If it is continuation card, 
then this card is appended to previous card in stmt( 1; 700) 
and the above procedure repea-ted. Only 9 continuation cards 
are collected. At tbe end of a statement, a marker is put. 

The variable Instmt gives the length of statement in terms of 
the nmnber of characters. The logical variable endf le will 
be true if slashes in columns 1 and 2 are encountered in card 
read into t emp( 1; 72) . This indicates end of input deck. The 
integer variable error will be non-zero if there is some error 
in the card. For example, if column 6 of first card of a sta.te- 
ment is not blank or zero, then error is set to some non-zero 
value, and this column is taken as blsmk and proceeded. 

So when this procedure returns control, a card after the 
collected statement will be present in temnd; 72) . 

4-3. IE XI CAL AliTALYSl R 

This module tad'es a sta';ement and lexical analyses it 
and outputs the toksns. The tokens are stored in koutlx( 1: 1000 ) . 
Alongwith each taker, its class and length are also stored. 

The classes of difi-)rent tokers are given in appendix. Finite 
state machine technique [Johnson, et, al, , 1968] is adopted 
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to lexical aaalyse the given statement. We divided the 
input alphabet into various classes* The input alphabet 
is divided into 9 groups each one consisting of blank, 
letters excluding E and H, B, H, digits, +/-,*, . , 
and other characters respectively. The major cla,ss of each 
group and individual classes of each character are given in 
the appendix. The state diagram of finite state machine 
used is ^own in Figure 4-1. 

To make the state diagram of finite state machine simple, 
some pj^hhs are omitted. V7hen there is no path from a state 
for a. particular character, then it means that there is some 
error in the input statement. It is seen from the diagram, 
that while constructing an identifier itself it is seen whe- 
ther it can form a reserved word. In the input statement, 
identifiers starting with reserved words are not allowed. 

The lexical analyser portion is described as follows. 

First the various routines, which are used in lexical ana-lysing, 
are discussed sind then the routine which lexical analyses is 
discussed. 

The finite state machine used to lexical analyse a 
statement is given on the next page, (Figure 4-1). 
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Ei^ure 4-1 


V 
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Procedure nxtchr ( stint( 1: TOQ)^ i) : This routine 
gives out a character from input statement. The character 
given out is stmt (i+l). The input parameters for this 
routine are stmt ( 1; 700 ) and i. The output parameters are i, 
char , kodch , klch . klass2 , kprev, and knrev2. The variables 
char , kodch . klch , klass2 , kprev and k-prev2 are common with 
routines ’dolsi' and 'lexcal’. 

The variable i gives position of last character processedo 
Variable char contains the next character obtained, Varia^bles 
kodch , klch , and kla ss2 contain the internal code of the 
character obtained, the major class of character, s.nd individual 
class of character respectively. Variahles kprev , and kpreyg 
contain information sim.ilar to that conta-ined by klch , and 
klass2 but this information pertains t o previous non-blank 
character. 

In the procedure first i is incremented and then character 
got. Then it invokes procediore 'chrcod* to get information 
pertaining to internal code, major class, and individual class 
, of character got. The control is then returned back. 

4^3*2. Procedure chrcod (char, kodh, klch. klass2); The 
input parameter to this routine is variable char and output 
paramters arc va,riables kodch , klch , and klass 2 . Given a 
character, stored in char , it gives out the internal code, 
major class, and individual class of character. For eanh 
character belonging to input alphabet, its major class, and 
individual class are present in variables istcls( 1: 64 ) ♦ and 
indcls( 1: 64 ) at a position depending on its internal code. 



26 


In the procedure, first internal code of the cherncter is 
calculated and using this its major class, and individual class 
8,re obtained, 

4-35. Procedure Fsmtbl (state, klch, nxtact, nstate); The 
input parameters to this routine are va,riables state . a,nd klch . 
and the output parameters a^re variables nxta,ct , and nstate . 

The procedure has information regarding finite state 
machine table in varia.ble m chtbl(l;12, 1;9'] . The first subs- 
cript of this variable should be information regarding state, 
and second subscript should be information regarding major class. 

So given present state and major class (given by va.riables 
state . and klch respectively),. t:his routine gives the next 
state and the information regarding type of action to be taken 
in next phase. In the finite state machine table, both next 
stp.te and next act are stored together as a n\miber. The last 
two digits give next state and remaining digits give nf xt act. 

The variables nstate . and nxtact conta.in the information regard- 
ing next state, and next act at the end of the execution of 
this routine, 

4—34-: Procedure I^ewoul : There is no input parameter to ' 
this routine. The output parameter is va,riable ^ kount ' . pre- 
sent in common area labelled * output ' . 

This routine initialises variable kount to one, making it 
possible to start storing tokens of new statement. So before 
storing any token of a new statement this routine shotild be 


c ailed . 
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4-75. Procedure Newtkn ; The input parameter to this 
routine is variable kount , The output parameters are variables 
klsptr . koutlx( 1; 1000 ) „ and kount . All these variables are of 
common area labelled ‘output^. 

Before a new token is stored, this routine should be called. 
It saves location where class of token is to be stored. Varia-- 
ble klsptr contains this information. Also it initialises 
class and length to -I, Variable kount is incremented twice, 
so that it now points to a location, from where the token is to 
be stored. 

4-3.6. Proced u re a d dchr (kh ar) ; The input and output para- • 
meters of this routine are variables khar and kount , and 
koutlx( 1; 1000) respectively. Output parameters are part of 
common area labelled ’oiitput'. 

This routine adds a, character present in k har to the token 
in 

pre sent out lx( 1: 1000 ) in the position pointed by kount . B o irat 
is then incremented so that it points to the next a.vailable 
location which is free. 

and 

4-3-7: Procedure defcls (klas): The input/ output para- 
meters of this routine are variables klas . and koutlx( 1; 1000 ) , 
Output parameter being of common area, labelled ’output’. The 
routine stores the class of present token in the location 
koutlx( klsptr) . 
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Procedure endtkn: The input pprameters to this 
routine are kount , klsptr . and the output parameter is varia- 
hie koutlx( 1:1000) . All these variables are of common area 
lavhelled 'output'. When storing of a token is over, this 
routine is called. It stores the length of the token. 

4-3i9» Pr ocedure endou l: There is no input parameter to 
this routine, hut the output pa,raiTieter is variable kout lx ( 1 ; 10_Q.0. ). 
of common area labelled 'output'. This routine puts a marker 
at the end of all tokens of a statement, 

4-3.10. P roce du r e cnsint(n): This routine constructs an 
integer from the individua3. digj. ts of the token stored in 
koutlx( 1; 1000 ) . The output parameter is variable n which con- 
tains the integer constructed- The variable kount at the end 
of the execution of this routine points to a location from 
where we can start storing the next token. 

4-0. 11 Procedure newlx i: This routine initialises the 
variable kount , belonging to the common area labelled 'output', 
to one. Thus it makes possible to extract tokens from kout lx_(_l 
1000 ), 

4-3.12, Procedure ch e ( e nd Ixi ) ; The input parameters 
to this routine are variables kount , and koutlx( 1: 1000.) _ of 
common area, labelled 'output'. The output parameter is logical 
variable end Ixi . 

This routine checks whether the tokens of statement are 
over, in which case the logical variable endlxi will be out- 

Otheim-rise endlxi will be outputted as 'false'. 


putted as 'true'. 
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4— 3 . 13 . Procedure fchtkn (class, length, token ( 1000 
The input paraiaeters to this routine are variables hount , and 
koutlx( 1; 1000 ) , which are part of connon p.rea labelled 'output', 
The output pc.raiaeters are variables class . length , and token 
(1;1000) . 

The routine outputs a token starting from location kpunt» 
The token is accompanied by its class, and length. 

How the routines dealing with reserved words aro described 
The manner in which the reserved words are stored is discussed 
first. All the reserved words are stored in a list structure, 
so that it is flexible for any addition or modification. The 
first letters of all reserved words are stored alphabetic al3.y„ 
so that binary search can be applied. The reiiaii2iin4-~l^'fc''^®'^® ■ 
reserved word are stored in the same seq_uence. 

The data, structure of first chana.cter of reserved word 
is as follows; 


updlt I mchar 


downalt ] msucc 


The given character is compared with mchar (comparison 
in terms of internal code) 

If char ^ mchar, then go to downa lt and repeat step 
= E ichar , go to msucc , and compare next char 
bl mch ar, then go to unalt and repeat step . 
msucc points to a location where the next letter of reso 


word is stored. 
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The data structure for other letters (excluding first 
letter) of reserved word is as follows; 


nchar alt j succ | 

Given chara.cter is compared with nchar 
if c har = ncha r j. then go to succ , and compare next cha,r 
^ then go to alt and repeat step. 

"^succ’ points to location, where the next letter of re- 
served word is stored. will be zero if there is no other 

letter which can form a reserved word. 

At the end of each reserved word, special marker is put 
as shown below. 


/ 



The ’succ* field gives class of reserved word and any 
other information. 

If ’ alt ’ field is non— zero, then depending on the next 
character, the reserved word is ended here or the comparison 
is continued with the ’ al-t ’ field character. For example, 
thert; can be two reserved words starting with BITD. They are 
BUD and BFDFIIE. After first three letters are compared, 
marker is reanhed and ’ alt ’ field is non-zero. Bow the next 
character is checked rnd if it is endmarker, then the reserved 
word ends here and takc'n as 'BBD*, else the comaprison of 
next character is continued with char, of location pointed by 
’alt’ 
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The routines which deal with reserved words are described 
below. 

4-3.14. Procedure restbl ; The routine does not have any 
input paranieters. It constructs the reserved word table, by 
reading all the reserved words along with relevant details. It 
reads in infornption into varl^ ble s nchar ( 1: 20 ) . nsucc ( 1; 20 ) , 
liLdn alt ( 1; 20 ) . and iup alt ( 1; 20 ) . which form the common area 
labelled 'Rwfrst', and into variables khar( 1: 200 ) , na.lt ( It 200 ) , 
and isux( 1; 200 ) which form the common a.rea labelled 'Rwothr'. 

4-3.15. Procedure strtwd (char, resflg); The input to 
this routine is variable ch.ar. . and common ajrea la.belled 
'Rwf rst ’ . The output parameters a.re logical variable re sf Ig . 
and va.riable nntr . which is in common area labelled ’Rw', 

The routine checks the first letter of a token for a 
possible reserved word. The logical va^riable resf Ig will be 
'true* if input ch.aracter present in char matches with first 
letter of any reserved word. If there ±s a possibility of 
fonning a reserved word with this letter, then variable nntr 
points to the location where next character of possible reserved 
word is stored. Bina.ry search technique is used, as the first 
letters of all reserved words are stored alphabetically. 

4-3.16. Eunction Procedure kode(m) ; The input to this 
routine is character present in variable m. It outputs 
internal code of this character as present in first six bits 
of the word. 
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4-3.17. Procedure Oknxch (char, siisgial. next, class); . 

Input to this routine is com on area of reserved word table, 
labelled 'Rwothr', and the variable char which contains the 
character to be checked. The output parameters are variables 
slisual . next , class , and nntr. Variable nptr is of common 
are a labe lied ‘Rw ’ . 

The routine outputs whether the input chamacter is acceptable 
for forming reserved word. 

The variable si nal will be zero if input character is 
unacceptable. It will be one if chara.cter is acceptable. It 
will be two if end of la served word is encountered. In case of 
end of reserved word occuranpe, the variables next and class 
give the next action which is to be taken and the cla,ss of 
the reserved word respectively. If the chaxacter is acceptable, 
then variable ^ nptr ^ points to location, where next character 
of reserved word is stored. 

4—3.18. Procedure lexcal ( stmt ( 1; 700 ) . i. Instmt, error) : 

The input pa.rameters are the variables stmtC 1: 700 ) . i and 
Instmt . and common area labelled SO.', The output parameters 
are variables koutlx( 1; 1000 ) , a part of common area labelled 
’ output ‘ , and error . 

The routine outputs tokens of s tmt ( 1: 700 ) . The first 
non-blank chfracter of input statement, alongwith its internal 
code, major class, end individual class is given as input to 
the routine. All the tokens are stored in the variable 
koutlx( 1; 1000 ) . Along with each token, its class and length 
are also stored in the forma.t (cJLass, length, token). At the 



35 


end of all tokens a. marker is put. 

The routine identifies different tokens of iup'^it statement 
and stores them in koutlx( 1; 1000 ) , It distinguishes between a 
logical II’, and orithLiatic II\ Also it identifies statements 
starting with INTEGER imTCTION ,,,, EBIJj EUNCTIOR ,,,, etc, A 
comment statement is stored as single token. Format specifi- 
cations also are stored as single token« • 

4- 4 . TABTJB HMDL IFG- ^ .ROUjnfB S„ 

As already described in the previous chapter, we have 
different tables aore to bo maintained. In this section 

routines dealing vri ^-h all cables are explaAned. 

4“ 4.1 Routi ne s deaJ-ing wi t h comment and format table : All 
the routines dealing with common and format table use ^ common 
area labelled 'comfmtA ''J^hich conta,ins variables kmtbl( 1; 75, 1°. 5) 
aud kmt-ptr . In this five entries are allowed and if one wants 
to increase it then the 'common' card in all the routines has 
to be changed. The variable km tptr always points to the next 
available entry in the table. 

(~) R r 0 ce dure in :i emt ; This routine initialises variable 
’kmtptr' of common area to one, thus making it possible to 
start entering entries into the comment and format table. 

( "t* ) Procedure en t Ine ( c lass, length, token ( 1; 1000 ) , inintr , 
entno, errflg) ; The input p^.rameters to this routine are the 
variables class , length, tok-'n iC li 1000 ) and inipt r . The output 
parameters are vajpiable entn o. and logical variable errf Ig . 
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This routine simply enters class, length and token in 
the entry pointed by kmtotr . The variable inintr gives the 
location from which point the token is to be taken from .token 
( 1; 1000 ) 4 Accordingly actual length of token entered becomes 
length- inintr+l ii If the length of token being stored exceeds 
12 characters, then a. continue tion mairk is put in 75th location 
of this entry, and the rest of the token stored in the next 
entry. Of course, the first two locations of entry contain 
class, a.nd length of the token being stored. If the table is 
full, then logical variable err fig is returned as ’true’. The 
variable entno gives entry number in the table where the token 
is stored. The value given out in entno will ha.ve a digit 
one appended at the end, signifying that this is an entry number 
of comment and fomat table, to actual entry number of the 
table. 

( c ) Procedure f chine (class, length. token( 1: 1000 ) , entno , 
errf Ig ) : The input parameter to this routine is variable entno ♦ 
The output parameters are variables class , length . token( 1: 1000 ) . 
and errf Ig . Given an entry number in the table, this outputs 
the token present in this entry alongwith its class and length. 

It returns errf Ig as ’true' if a wrong entry number is given. 
Variable entno gives entry number. 

(d) Procedure endemt; This routine puts a marker a.t the 
end of all entries present in the table. The marker is put 
in the first location of t he entry. 
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4-‘r-2. Routines dealing lArith constant table ; All the 
routines de along with constant table use a common area, labelled 
'const’, which contains variables knstbl(l:20. 1;30) < and 
knsntr , ¥e allow only fifty constants to be entered. If one 
wants more, one has to simply change the ’ comm on 'card depend- 
ing on the requirenents. Ba-ch entry ha^s twenty locations. 

The varia.ble knsptr alwa.ys points to the next available 
entry in the table, 

(s-) Procedure inicns; This routine simply initialises 
vajria.ble knsntr to one. After the initialisation, one can 
start entering the entries into the table, 

( ) P rocedure ontcns (class, length. token( 1: 1000 ) , 
entno, errflg) ; The input parameters to the routine are the 
vaxiables cl8.ss , length and t oken (l;1000) and the output 
parameters are the integer variable entno , and logical vaniable 
errflg . 

In the constant table integei, real, and hollerith cons- 
tants are entered. This routine e iters a. constant present in 
variable token( It 1000 ) , along with i.ts class, and length. If 
the length of constant exceeds 17 locations, then a continuation 
mark is put in 20th location of the entry and the rest of the 
constant entered in the next entry lumber. In each entry the 
first and second locations give the class and length of the 
constant being present in tl.ai entry Rea.1 and hollerith 
constants ane stored in character fn th whereas integer constant 
is stored as integer n7umber. If the table is full, then 
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logical variable errf Ig is returned as *true*. This check 
is done in the beginning only. The variable entno contains 
the actual entry number, where the constant is stored, end a 
digit two appended at the end, which ^ecifiee that the 
entrjr number is of constant table. 

( c ) Procedure fchcns (cla. 3 S, length, token (1:1000) , 
entno. errflg): The input parameter to this routine is 
variable entno . The output parameters are class, length and 
token ( 1; 1 000 ) . The variable entno specifies the entry from 
where to fetch the constant and the routine fetches the cons- 
tant, along with its cla.ss, and length. The constant, its class 
and length are available in variables token (1:1000) . class . 

length , at the end of execution of routine. 

(d) Procedure endcns: This routine simply puts a marker 
at the end of all entries in the table. The ma.rker is put in 
the first location of the entry. 

4. 3 . Routines dea-ling with dimensioned variable table: 
All the routines dealiong with dimensioned variable table use a 
common area' labelled ’dmnson’, which conteins integer variables 
dmntblC 1: 13 . 1; 50 ) . and dmnntr . The table size is fifty, each 
entry having 13 locations. The variable dmnntr always points 
to the next available entry in the table. 

(a) Procedure indmn: This routine initialises the variable 
dmnntr to one, after which we can start entering the entries. 
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("b; Procedure entdmn (inth, token ( 1: 1000 ) , exptyp , 
ty-pcl, entno, errflg) ; The iiixmt parameters to the routine 
are the yariables Inth . token ( 1; 1000 ) . exntyp . and typcl . 

The output parameters are integer variable entno . and logical 
variable errf Ig . 

\ 

In the dimensioned variable table, all the declared di- 
menioned variables are entered. This routine enters the name 
of dimensioned variable from locations 2 to 7 of the entry. 

The 1st location of the entry contains the length of the name 
of variable to be stored, i‘'The naa>S. 6f, vari.able ri a. ..pr esent in 
token (itlOOO) . The routine also stores value present in 
variable exptyp in location 8 of the entry. If exptyp is one, 
then typcl is stored in location 9 of the entry. The routine 
first enters the entry in the entry pointed by dmnptr and then 
searches table if the entry is a.lrea,dy present. If it is not 
already present in the table, then dmnptr is incremented by one. 
If the table is full then the logical variable errf Ig is returned 
as ’true'. The routine returns entno . which contemns actual 
entry number where dimensioned variable is stored, and a digit 
three appended at the end, which specifies that the entry nimnber 
is of dimensioned variable table. 

(c) P roc e dure ad ,1 dmn ( entno , numar g , arg (1:5). e rrf Ig ) ; 

The input parameters are entno . numarg . end arg( 1; 5 ) . and the 
output parameter is errf Ig. The variable entno gives the 
entry number, when the last digit three is removed. Additions 
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p.ro to 1)8 mnde in this entry. The vs^riable ntmaris: gives the 
nniaber of arguments dimensioned variable has and arg( 1; 5 ) 
contains the entry numbers of constant table where the maximum 
arguments of dimensioned variable are stored. This routine 
stores numarg . and arg( 1; 3) in the locations ten, and 11-13 
respectively depending on the number of arguments. If a 
wrong entry number is givea , then logical variable errf Ig 
is returned as ‘true*. 

Procedure fchdmn (entno, Inth. token (1;1000) . 
exptyp, typcl. numarg. eng(l:3). errflg) : The input para- 
meter to this routine is variable cntno . The output para- 
meters are variables Inth . token ( 1; 1000 ) . exntyp . typcl . 
numarg , arg( 1: 5) . and errflg . The variable entno specifies 
the entry from where to fetch the dimensioned variable and its 
details. The routine fetches the length of variable, name of 
variable, information about its explicit declaration, if 
declaned explicitly then its mode, how many arguments it has, 
and the entry numbers of ma,ximuim argunents declared, into 
variables Inth . tokenC 1: 1000 ) . exptyp . typcl . numarg . and 
.argl 1; 5 ) respectively. If the entry number given is a wrong 
one, then logical variable errflg is returned as ’true’. 

(^) Procedure schdmn ( Inuh. var(l;10). found, entno) ; 

The input parameters to this routine sne variables Inth . and 
var ( 1; 10 ) . The output parameters are variables f ound . and 
entno . Given the length and na’co of a variable, this routine 
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ta.ble 

searchsp tho dimensioiied Tariable^f or presence of given nejiie. 

If it is fornid in the table, then logical variable f ound is 
returned as 'true’ and the variable entno is returned with 
valtie of entry number where found, after appending digit 3 
at the end, 

(f) Procedure enddn n; This routine puts a marker a.t the 
end of all entries of the table. The marker is put in the 
first location of the entry, 

4“ 4. 4 Routi nes dealin g with simnle variable table: All 
the routines dealing irith simple variab3-e table use a, common 
area labelled 'smpvrv' which contains variables mnltblC 1; 9 . 1: 100 ) 
and mnlptr . The table size is hundred, each entry having nine 
locations. The variable .mp2-ptr always points to the next avai- 
lable entry in the table, 

(a) P roc e du re ri i smn ; This xotitine initialises varia.ble 
mnlntr to one. 

^ ) Procedure en tsm p (3-nth, token( 1; 1000 ) , exptyp, typcl , 

entno. errflg) ; The input parameters to the routine are varia- 
bles Inth . token( 1; 1000 ) , exp typ, and typcl . The output 
paramters are integer variable e ntno , and logical variable 
errf ly . 

The routine first enters the length, name of variable, 
information regarding its explicit declaration, if explicitly 
declared then its modt, which are available in variables Int h. 
token( 1; 1000 ) . ex-otyi . and t.ypcl respectively. This is entered 
in entry pointed by iiP.lptr. 


Now the table is searched if the 
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variable is alrea,dy present, in which case the variable ciplptr 
is not incremented by one. If the table is full, then e rrf Ig 
is I'returned as 'true*. A digit four is appended a.t the end 
to the a.ctual entry number and stored in entno . la,st digit 4 
tells us that this entry number is cf simple va^riable table. 

Procedure fchsmn (entno. Inth. token (1:1000). exptyp , 
tvDcl. errflg) ; The input pa.raineter to this routine is varia— 

"bl® entno . The output paramters are varia^bles Inth . token( 1; 1000 ) 
exptvp . typcl . a,nd e rr f Ig . The variable entno specifies the 
entry from where to fetch the simple variable and its detehls. 

The routine fetches the length of va.ria.ble, name of variable, 
information about its explicit declaration, and if declared 
explicitly then its mode, into variables Inth . token( li 1000 ) , 
exptyp . and typcl respectively. If the entry ntunber given is 
a wrong one, then logical variable * e rrflg ' is returned as 
' t rue ' . 

(d) Procedure endsmp: This routine puts a marker in the 

first location, at the end of all entries of the table. 

sub 

4-4.5 Routines dealing with /program/function table,;. All 
the routines dealing with subprogram/function table use a common 
area labelled 'subftindj. which contains integer variables 
sf n-'tblC 1; 20 . 1; 40 ) . and sfnptr . The table size is 40, each 
entry having 20 locations. The variable sfnptr alwa.ys points 
to the next available entry in the table. 

(a) Procedure inisfn; This routine initialises variable 
s fnptr to one. 
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(Id} Procedure entsfn (Intht token( 1; 1000 ) , entno , 
errf IjR, f lag) : The input parameters to the routine are varia- 

ble s Inth and token (1;1000) . The output parameters are the 
variables entno , errf Ig , and flag . 

This routj.ne first enters the length and name of the 
sub]pro gram/function uhich are available in variables Inth , 
and token (1: 1000 ) , The entry is made at entry number pointed 
sfnntr . The table is then searched to check whether this 
entry is already present, in which case the variable sfnntr 
is not incremented by one. If the entry is already present 
then variable f lag is returned a.s ’true’. If the table is 
full, then e rrfl g is returned a,s 'true’. The varia,ble entno 
is returned with the entry number, with a digit five appended 
at the end. The last digit 5 tells us that this entry number 
is of subprogram/function table, 

( '^ ) Procedure adjsfn (entno, numarg, arg(l;20). defbit , 
defent, chkbit. errflg) ; The inx)ut loarameters to this routine 
are variables entno . numarg , arg( 1; 20 ) , defbit , defent . and 
chkbit , The output parameter is logical variable errflg. 

G-iven an entry number, this routine either enters the 
arguments of subprogram and other details or it checks the number 
of arguments etc,, if the details are already present. If 
chkbit is zero then it does the former and if chkbit is 1 then 
it does the latter. When chkbit is zero the routine enters the 
number of arguments, argtiments, infomation saying whether this 
entry is statement function name, and if so where statement 



42 


function definition is stored, which ere nvailahle in the 
variahles nuaarg . e.riS:( 1: 20 ) , defbit . ^nd def ent . The argu- 
ments stored will he in terns of entry numbers in the tables, 

i 

If there are more then 9 arguments, then a continuation me.rk 
is put in 18th location of entry and the rest of the arguments 
are stored in next entry- The -variable def bit should be 1 in 
case of statement function and then variable de f ent points to 
code block where the definition is stored. If the entry 
number given is a wrong one, then the logical vario,ble errf Ig 
is Returned as ’true*. 

(d) Procedure fehsfn (entno, Inth, token( 1: 1000 ) , n-umarg , 
arg(l:20). defbit, def ent. errflg ): The input parameter to this 
routine is variable entno and the output parameters are varia- 
bles Inth . token ( 1: 1000 ) . numarg , arg( It 20 ) . defbit . def ent , 

e J^rf Ig . The variable entno specifies the entry from where 
to fetch the subpro gram /f -unction name and its details. The 
routine fetches the length, name of subprogram/function, n-umber 
of arg-uments it has, the arguments in terms of entry numbers 
of tables, information which says whether it is a. statement 
function, and link to definition if entry is a statement func- 
tion, into variables Inth . token( 1; 1000 ) . numarg , arg( 1; 20 ) . 
defbit . and def ent respectively. If the entry number given is 
a wrong one, then the logical variable errflg is returned as 
’true * . 

(e) Procedure endsfn ; This routine puts an end marker in 
location one, at the end of all entries of the table. 



roc e dure schsfn ( Inth, yards 10 ). found, entno) : The 
input parameters to this routine are va-riahles Inth , end var 
■Li" iO ) « The output parameters are variables f ound . and entno . 
The routine searches the table for the name of subprogram/ 
function given in var( 1: 10 ) . If it is successful in finding 
it in the table, then the logical variable f ound is returned as 
’true* and the V8.riable entno is returned with the value of 
entry number where found and a digit five appended at the end. 

is not found then logical variable found is returned as 
’ f als e ’ . 

4—4.6 Routines dealing with statement number table 
All the routines dealing with this statement number table 
use a. common area labelled ’ stmtno ’ which contains variables 
isfmtb (l;3; 1:100) . and istmut . The table size is 100 and 
each entry has 3 locations. The variable istmut always points 
to the next available entry in the table, 

(&■) P ro ce dure ini stn : This routine initialises variable 
istmnt to one. 

(b) Procedure entstn (nmbr. entno. errf Ig) ; The input 

pa.rameter to this routine is variable nmbr and the output 
panometers are vaniables entn o and errf Ig . The routine enters 
the statement niimber inputted. The variable nmbr contains 
statement number. If statement number to be entered is a dummy 
one (—9999), then it is entered at the entry pointed by istmnt . 
and entno is returned with the value of entry number after 
appending digit 6 at the end. 
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If sta-tenent niinber to be entered is not a dunay one, 
then this nniiiber is searched in the table. If it is not 
present, then it is entered at the entry pointed by iatimjt , 

The variable entno is returned with entry nimber to which a 
digit 6 is appended at the end. The digit 6 at the end indi- 
cates that this entry number is of statement number table. 

The logical variable err fig is returned as ’true’ if there is 
no ^ace to enter the given number. 

(c) Procedure adjstn (entno. fmtflg. num, errflg) : The 
input parameter to this routine a.re variables fmtflg . nun , and 
en tno . Output parameter is variable errflg . This routine 
enters the details of a statement number, when the entry number 
where statement number is stored is given. The entry number 
is value contained in variable entno after the last digit is 
truncated. The routine enters infoimafion regarding statement 
number, and link which are available in variables f mtf Ig . and 
num. pmtf Ig will be _1 if statement nxmber is a forma.t statement 
number, in which case link points to the entry in comment and 
fomat table where corresponding format specif ica^tion is stored. 
If fmtflg is zero then link points to the number of flow block 
started by this statement number. If the given entry number is 
a wrong one, then errflg is returned as ’true’. 

Procedure fchstn (entno. stno. fmtflg; link errflg) : 

The input parameter to' this routine is variable entno and 
output parameters are variables stno . fmtflg . link and errflg . 
Given the entry n^mlber, the routine fetches the sta.tement number, 
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infoimation which says whether it is s fom?t statement numher, 
and link to comment and format table or flowblock and places 
into variables stno, fmtf Ig . and link respectively. If the 
entry number given is a wrong one, then the logical vairiable 
errflg is returned as ‘true', 

(®) Procedure endstn ; This routine simply puts a.n end 
marker at the end of ail entries of the ta^ble. The marker is 
put in first location of the entry. 

(f) Procedure stnosz (itblsz); The variable itblsz is 
output paraneter of this routine. This routine gives out the 
number of entries filled in statement niimber ta.ble at any time. 
This information is passed through va.riable itblsz . 

(g) Procedure miaxflb (if lb) : Variable if lb is output 
paramter of this routine. This routine searches the ste.tement 
number table and gets the information about the number of flow 
blocks used. This is obtained by seeing all non-format state- 
ment number entries which give information about flow blocks they 
are starting. The variable if lb conta-ins this information 
about number of flow blocks. Usually this is called at the end 
of processing of a. segment to know how many flow blocks it has 
used. 

4-4. 7 Routines dealing with segment header 

All the routines dea,ling with segment header use a 
commong area labelled 'segment* which contains vari8.ble 
nsghdrC 1: 50 ) . 
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(a) Procedure inise^ (nflbno) ; The input p.araneter to 

this routine is ■variable nf Ihno . This routine initialises 
first three locations of asghdr ( 1; 50 ) » These locations 
contain inforna.tion about type of segment, area "where comments 
of beginning can be stored, and the flow block being 

used. 

( b ) Procedure adiseg (class, length, tok en (1;100.0)_ , 
sbrfnc. ex-ptyn, typcl. errfljS:) : The input pararaeters to this 

routine are variables c lass . le ngth . token ( 1: 1000 ). , sbrfnc < 

ex-ptyp . and typcl . The output parameter is logical vp.riable 
errf Ig . 

The routine first saves the second and third loca,tions 
of nsgB.dr( 1; 50) . which are put at the mad afterwards. Now 
value contained in variable sbrfnc . which specifies whether 
the segment is a subroutine, or function etc., is stored in 
first location of nsghdr ( 1: 50 ) . If e xptyp is _1 then the 
function is explicitly declared and class of declaration given 
typcl is stored in 3rd location of nsghdr ( 1: 30 ) « Sxp'typ 
is stored in second location of nsghdr ( 1; 50 ) . After these the 
length of name, and name of subprogram available in variables 
:^n£;to, and token (lilOOO) respectively are stored. The 
routine then gets the arguments, if any, and stores them as 
it is, The information about number of arguments precedes the 
arguments. A marker is also put at the end of all informaution 
stored in nsghdr ( 1; 50 ) . 
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(c) Procedure fchseg ( nseig:( 1; 50 ) ) ; This routine sinply 
copies the contents uptc end merker of nsffhdrC 1; 50 ) into 
variable nseiS:( 1; 50 ) and the variable nse^( 1: ^0 ) is passed out 
as output parameter, 

4-5. FLOW, CODd. iiND IBC L /.£ATI.. • BIOGK ROUTUffiS 
4-5.1 Routines dealing •with flow blocks 

All routines dealing with flow blocks use a common area 
labelled ’flcwbl', which contains variable nflblk (l:50t 1:50 ). 
This means we are allowing thirty flow blocks. One need to 
change the common card in these routines, if one wants to 
have more flow blocks. Each flow block has 50 locations. 

(a) P ro c e dure inif l b ( if Ibno ) ; There is no input para- 
meter t o'^' this routine but the output parameter is variable 
if Ibno . The routine initialises variable if Ibn o to zero. 

(b) Procedure getflb (iflbno, errflg) i The input parameter 
to this' routine is variable iflbno . and output parameters are 
variables iflbno . and errf Ig, This routine gives out the 

next flow block number. This is done by incrementing variable 
if Ibno by one. And in the new flow blocks, in fart in all 
flow blocks, the first location points to the location of this 
flow block which is available for usage. So this routine ini- 
tialises the first location to have a value of two. If there 

is no flow block which is availa.ble, then the logical variable 
errf Ig is returned as 'true’. 
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(c) P rope dure enflb (type, stno. kdlsno, iflbno) ; In 
this routine all the peraneters are input parameters. The 
routine puts type, stno and kdbno in the flo-w block specified 
by -variable if Ibno in the locations t-^ro, three and four res- 
pectively. The variables type , stno , and kdbno specify the 
type of segment being processed, statement number which is 
starting this flow block, and the code block n-unber where the 
corresponding statements of flow block are being stored 
respectively. The routine adjusts the first location of the 
flowblock to have a value of five. 

(d) Procedure nxtflb (if Ibno. nentrv. errflg) ; The input 
parameters are variables if Ibno . and nentr y. The output 
parameter is logical variable errflg . This routine simply 
puts the value given by variable nent!ry in the available 
location of flow block specified by ifclbno. If there is no 
ava,ilable space in flow block, then a, continu-ation mark is 
put in 30th location of flow block, and a,nother flow block is 
obtained and the yariable nentry stored. In any ca.se the first 
loc8.tion is p.pdeted so that it points to the next available 
location. 

(e) P r oc e dure e ndf lb ( if Ibno ) : This routine puts an end 
murker at the end of all entries in the flow block specified 
by variable ilbno . 

(f) Procedure chkflb (if Ibno, wp-und); The input parameter 
to this routine is variable if Ibno . and output parameter is 


logical variable wound. The routine just checks whether the 
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flowTDQCi: specified "by if Ibno is ■wound or not. This check is 
done hy neans of checking end narker at the n nd of all entries. 

In case that the flowhlock is found as wound, then logical 
■variahle wound is returned as 'true*. 

(g) Procedure gtkdno (nocdhl. iflh) ; Given a flow block, 
this routine gets the corresponding code block where the state- 
ments of this block are stored. Variable if lb specifies for 
which flow block, we want information about its code block, and 
variable nocdbl contains information about the code block, which 
is returned as output parameter. 

4-5.2 Routines dealing with code block 

All routines which deal with code blocks use a. common area 
labelled 'codebl' which contains variables kdblk( 1; 100 . 1; 30 ) . 
and k-db-ptfer. . The n-unber of code blocks available are thirty 
and each code block has liundred locations. The variable kdbntr 
always x^oints to the available location in the code block being 
processed, 

(a) Procedure inicdb (kdbno) ; There is no input parameter 
for this routine but the outjjut parameter is va.riable ikdbno 
which is initialised to zero by this routine, 

(b) Procedure getcdb (kdbno) : The variable kdbno is input 
and outp>ut pa,raiaeter as well. The routine gets next code block 
and gives the n-umber of this. This is done by incrementing kdbno 
by one. Also the variable kdbntr is initialised to one by this 


routine. 
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(c) Procedure ent^dlD (kdbno, class, length, token 

(l;1000), entno) ; All the parameters of this routine are 
input parameters. This routine enters a token or an entry 
numher along with its class and length. If there is no 
space available to enter, then a continuation mark is put 
in the location pointed hy kdhptr and another code block 
obtained and these stored. If the variable length has a 
value zero then class , length , and entno are stored in code 
block. Otherwise class, length, and tnkan f 1° 1e,n.g-tb are 
stored in the code block. The kdbptr . of course, is updated 
to point to next available location in the code block. 

(d) Procedure endcdb (kdbno) ; This routine simply puts 
an end marker, at the end of all entries in the code block 
specified by variable kdbno . 

( ® ) Pi’ocedure kdtkn (kdbno. class, length, token (1:1000)) 
The input parameter to this routine is kdbno and output para- 
meters are variables class , length . and token( 1; 1000 ) . This 
routine gets next available token from the code block specified 
kdbno . The variable kd'bgtr will be pointing to location 
from where the information of token is available. If there 
is no token but a continuation mark is present, then this 
information is passed through variable class and control 
is returned. The routine, if a token is present, passes 
class, length and token present in code block through varia- 
bles class , length , and token( 1; 1000 ) . If length contains 
a value zero, then it indicr,tes that token is in terms of 
entry number of some table. 
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(f) Procedure cheokd (kdend, kdlno) ; Tiie input para- 
meter to tills routine is variable kdbno and output parameter 
is logical variab3-e kdend . This routine checks to see if 
there are any more tokens in the code block specified by 
k dbno ,, This is known by checking for an end raarker at the 
location pointed by kdbpt ro If end marker is found then 
variable kdend is returned as Hrue % indicating t hat there 
are no more tokens in code blocks 

4-5.3 Routines de aling with deo-larative block 
All routines dealing with declara.tive block use a 
common area labelled 'declbl*, which contains variables 
idc lbl ( 1: 200 ) , andJMjliyi^ The declara.tive block size is 
two hundred locations^ The variable idclpt always points 
to the next available location in declarative block, 

(o-) P procedure inidc l; This routine initialises the 
va,riable id clpt to one, 

(b) P rocedure en tdcl (class, length, token (IslOOO), 
entno, errflg) r The input parameters to this routine are 
variables class , length , token (1:1000) , 8,nd entno . The 
output parameter is the logical variable errf Ig . If the 
variable length has a value zero, then this routine enters 
class , length , and e ntno in the availab3.e space. 0 the 2 ?wise 
tjlass . length , and token ( 1: length) are entered in the 
available space. If there- is no space available in the 
declarative block, then the logica.l variable e r pf Ig^ ,-, 
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returned with value 'true'. 
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(c) Procedure endcicl : This routine puts an end ma.rker 
at the end of all entries in the cdeclarative hlock, 

(d) Procedure chendl (dclend) t The logical va,riahle 

put 

dclend is out /parameter of this routine. This routine checks 
whether there are any more tokens in declara-tive block. This 
is achieved by checking location of declarative block as 
pointed by idclnt for end marker. If it is found that there 
is end marker a,t location idclnt . then dclend is returned as 
Hrue ^ . 

fyocedure dcltkn (cla.ss, length, token (1;20)); 

The variables class , l ength and token ( 1; 20 ) are all output 
parameters. This routine gets next token which is availa.ble 
alongwith its class and length in the declarative block. 

This informa.tion is available from location idclpt . Token 
got alongwith its class and length are passed out through var- 
iables token (l;20), class and length respectively. If the 
value of length is zero, then it indicates that token is in 
terms of entry n;imber of some table. 
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DETAILS OE STORAGE ROUTII^IBS 

In this chapter the routines dealing with input part 
i.e., which stores given EORTRAN progran in the fora of a 
flowgraph are described. 

5-1. PROCEDURE . (tenn(l;72). iflbno. kdhno, errfl g, 

endfle. doflglT 

This routine processes a progran segment. The input 

parameter is variable temn( 1; 72) . The output pa.rsmeters are 

variables Iflbno . kdbno . errf lis; . endfle . and def 1^. 

The first statement of the segment being processed 

is already available in t he form of tokens stored in variable 

koutlx( 1; 1000) . After this statement a, c ard is read end is 

avaalable in variable temp( 1; 72) . 

The routine first initialises all the tables^ blocks ; 

stack, etc. It initialises segment header for main. Then 

blocks 

it gets flow a.nd code_/for usage. The routine first checks 
whether this segment is a subroutine or function, in which 
C8-se it modifies the segment header to contain the name 
and arguments of subroutine or function. A new statement 
in the form of tokens is then obtained. 

The routine puts a 'continue ’ statement in the code 
block at the beginning. Now it processes all s tatements by 
invoking routine 'prstmf until an 'end' statement comes. 

When an 'end' statement is seen, it checks whether previous 

53 
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flow Llock is wotincl or not. If it is not wound then it 
winds up flow 110011. After this it checks for emptiness 
of 'DO' stack. If stack is not empty, then routine returns 
variable dof Ig as tme. The logica,! variable errflg is 
returned as 'true' if there is any error in the last statement 
processed. The logical variable endf le will be returned as 
true if end of deck is encountered. The variables if Ibno 
and kdbno return values of the last flow block and code 
block used by the segment. 

5-2. PROCEDIIHE! prstnt (class, length, token (lilOOO). if Ibno . 
kdbno. type, idumno. errflg) 

The input parameters to this are variables cle.ss . 
length , token (It 1000 ) . if Ibno . kdbno . tvne . and idumno . 

The output parameter is logica.l variable errf Ig . 

The first token of the statement being processed, 
along with its class, and length is available to the routine 
in the variables token( 1:1000) . class and length . The 
variables if Ibno . and kdbno specify the present flow and 
code blocks. The variable type specifies the type of 
segment (main or subroutine, or function etc. ) under proce- 
ssing, The variable Idumno is useful when we want a dummy 
statement number while processing a DO statement. 

If the statement being processed is a comment statement 
then the routine enters this statement in comment and format 
table, and corresponding entry number in the code block. 

A marker is then put in code block to delimit the statement. 
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If the statement is a sta. tenant function then name is entered 
in suhprograni/f unction table alongwith its arguments. The s 
statement is entered in the code block after the different 
tokens are entered into the ta,bles. While checking for 
statement functions wo nay land up with a.ss ig.-imeni; state- 
ments (without statement number) and so these assignment 

statements are also processed whenever found. They are 
entered in the code block. If it is a declarative statement, 
then routine 'prdecl" is ca.lled to process this statement. 

If a statement with sto-tenent number cones, then the 
statement number is entered in statement number table. Then 
the routine checks for format statement. If it is found as 
format statement, then it is entered in the comment and format 
table and this entry number placed in the statement number 
table in the cor re sid ending entry where statement number is 
stored. If it is not a foimat statement, then this routine 
invokes the routine ^prblst® to which information regarding 
statement number is alLso passed alongwith other details* 

. PROOSDUEE nrb lst (otno, nent, class, length, tokenC 1: 1000 ) , 
iflbno, kd bno , type. _ idumno, errflg) 

The input pararrioters to this routine are variables stno , 
nent , class , leng th , token (1; 1 0 00 ) , if Ibno . k dbno , tyu e and 
idumno . The output parant-ter is logical variable errflg. 

If the statement under processing has statement number, 
then the variable jtno will be nonzero and nent gives entry 
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nunbe:: where it is entered in statenent number table. A 
token apart from sta.tement number is available in token 
( 1: 1000 ) . Variables class and a length give the class and 

length of token. Variables if Ibno a.nd kdbno specifs?' the 
present flow and code blocks that are being used. Variable 
'type tells the nature of segment and variable idumno is use- 
ful to get a dummy sta.tement number, when a DO statement 
occurs. 

If the statement has got statement number, then the 
routine checks whether the flow block is wound up as this 
statement starts new blocks. If flow block is not wound up, 

then the routine winds it up and gets fresh flow and code 
blocks. The entry in statement number table where this stateme- 
nt number is stored is adjusted to store information regarding 
flow block, being started by it. Information regarding 
statement number etc, is stored in flow block. The statement 
number is entered in the code block a,nd further processing of 
the statement is dons depending on the type of statement. 

If the sta.tement under process is a DO statement, then 
this routine invokes a routine called 'procdo' to process 
this sts.tement. If the statement is a non-control statement, 
then it is checked for ’call’ statement. If it is a 'call’ 
statement then the name of the subroutine called, alongwith 
its argximents is entered into subprogram/function table, 
if it is not present in the table. If the name is already 
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present in table, then it is checked for matching of number 
of arguments etc. The statement is stored in code block p,lsOo 
The non-control statement other than 'callJ statement is 
entered into the code block, After the non-control state- 
ment is entered into the code block, it is checked to see 
whether this statement ends the range of e^ny DO staten'ient( s) , 

Ij; the statement ends range of a DO statement, then the 
statements ’do parameter = do parameter + step' and 'IF (do 
parameten. J jD, final value of do parameter) GO TO duimny 
sta,tement number, which starts DO statement range' are entered 
into code bj.ock„ The flow and code blocks are wound up 
and new flow and code blocks got. The successor of previou.s 
flow block is present one. In the new code block 'continue' 
is entered. The above procedure of checking end of range 
of DO is repeated until the statement is not an end of range 
of DO statement. 

Logical IF statement is processed a.s follows. The state- 
ment upto the target of logical IF is entered into code block 
and then, the code block is wound and flow block is sa,ved- 
ITew flow and code blocks are brought and infoimation of present 
flo'tJ' block being successor of saved flow block is entered. 

A procedure 'prtgt' is called to process the target of logical 
IF statement. At the end of processing of logical IF state- 
ment, similar to non-control statements, it is checked to 
see whether it ends range of DO statement( s) . 
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Control stp.teaents other than logical IP, DO and SID 

are processed Toy routine ’prctl’, which will he called hy 

this routine in case these statements occur. 

5-4. P ROCEDURE proc do (class, length, t okenC 1; 1000 ) . iflhnp , 
kdbno', tyne, ' idumno, errflg j 

Except for variable errf Ig . which is an output para.- 
neter to this routine, the rest all are input parameters of i; 
this routine. The token after the sta.tement number, if any, 
is available in token( 1: 1000 ) . The cla,ss and length of token 
are available in variables class , and length . Variables type 
spells ofLli. the type of segment .lunder processing and variable 
idumno is used to get a dummy statement number. 

This routine first gets all the parameters of DO sta.te— 
ment and enters them in appropriate tables. If the step of 
DO parameter is not given, then it is taken as one. The 
statement ’DO parameter variable = initial value’ is stored in 
the code block. Now a dtimmy statement number is got and 
entered into sta.tement number table. The entry number of 
this statement number is entered as successor of the flow bio-- 
ck. The present flow and code blocks are wound up and new 
flow and code blocks got. Infoimation regarding the flow 
block is entered in statement nvimber table entry where dummy 
statement number is entered. In the new code block the 
statement ’continue’ is entered. Of course this statement 
will have dummy statement number. In the ’DO’ stack, 
informa,tion of Do range statement number, its entry number 
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in statement nnmioer te.tle, entry n-unbers of DO parameter 

variable, initial value, final value, step value is pushed. 

5“ 5 . PROGEDUES nrctl (olass, length. token( 1: IQOQ ) , iflbno , 
kdbno . errf Ig ) 

This routine processes control statements other than 
logical IE, DO and BED, The input parameters to this routine 
are variables class . lenff:th . token( 1; 1000 ) . iflbno . ajnd 
jkdbno . Output parameter is logical variable errflg . 

The first token of the control statement being processed 
is a.vailable in token( It 1000 ) ■ The class and length of the 
token are available in va.riables cla.ss and length . Variables 
iflbno and kdbno specify the flow and code blocks being used. 
The arithmatic IE statement is processed as follows. 
Eirst the expression of arithmatic IE is entered in the code 
block. Then the three st8,tement numbers after the expression 
are got and entered into code block after entering them in 
statement number table. The entry numbers of these statement 
numbers are entered as successors of present flow block. 

The flow and code blocks are wound up, 

Ordina.ry GO TO statement is entered into code block. 

The statement number involved is entered into statement 
number table and this entry is entered as successor of the 
present flow block. The flow and code blocks a^re then wound 
up. In case of assigned and computed GO TO statements the 
whole sta„tement is entered into code block. The statement 
n-umbers involved in these statements are processed by calling 
a routine *entnmb' which enters them in statement number 
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table Ic and the entries are entered into flow block as 
successors. The flow and code blocks are then wound. 

In case of stop/return statement, it is entered into 

code block as it is. The successor of flow block is taken 

as zero, which indicates stop/re turn statement. In this 

case also the flow and code blocks are wound up. 

5-6 . PROCBDUHE nrtgt (class, length, token( 1: 1000 ) . nsvebl, 
kdbno. iflbno, type, errfljg:) 

This routine process the target statement of logical 
IF, The input parameters to this routine are variables class . 
length. token( 1; 1000 ) . nsvebl . kd bn o . if Ibno , and type . The 
output parameter is logical variable errf Ig. 

The first token of the target str.tement is a.vailable 
in variable token ( 1; 1000 ) . The class and length of the token 
are available in variables class a,nd length . The flow block 
in which the logical IF statement excluding this target is 
stored is given by variable nsvebl . Variables iflbno and kdbno 
specify the present flow and code blocks being used. Variable 
type specifies the tyx^e of segnent which is under processing. 

If the ta.rget is found to be a logical IF, or DO or SFD 
statement then logical va.riable errf Ig is returned as 'true' 
and no further iDrocessing is done by the routine, Ron-control 
statement a.s target statement is processed as follows. The 
non-control statement is entered in the code block. A new 
dummy statement number -9999 is entered in the statement 
number table and this statement number starts next flow block. 
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The entry nrunher of this is put as successor of the present 
flow block and salved previous flow block. Saved a,s well as 
present flow block and code block a.re closed. Ifew flow and 
code blocks are obtained* In the new code block statement 
’continue' is entered. 

If the target is a control statement other than logical 

IF, DO and EK'D, then it is processed as follows. The state- 
is 

ment/processed by invoking routine 'pretl' which 

enters the statement in code block after doing necessary pro- 
cessing, A hew dummy statement number -9999 is entered in 
the statement number table < This statemnnt number .• e Lcu.'oj. 

' . starts. next flow block. The entry number of this 
statement number is put as successor of present flow block. 
Present flow block, saved flow block, and code block are then 
wound. New flow and code blocks are then obtained. In the 
new code block a 'continue' sta.tenent is entered, 

5“ 7, PROGEDtIKB prdecl (class, length, token( 1; 1000 ) . errflg) 

This routine processes declarative statement. The first 
token of the statement is availa.ble to this routine along 
with its class and length. This information is given to the 
routine through the variables class . le ngth . and token (itlOOO) 
The logical variable errf ] g is returned as 'true' if there is 
any error in the statement. 
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External ststenent is processed as follows. It is 
entered into declarative block after entering all variables 
declared in this statement in the subprogran/ftmction table. 
Conraon and equiva,lence statements are entered into the dec- 
larative block as it is i,e., without entering in terms of 
entry numters of tables. If case of common statement any 
information regarding dimensioned variables is extracted and 
entered in the dimensioned variable table. Data statement is 
stored in the declarative block in terms of entry numbers of v 
variables or constants. All other declarative statements are 
stored in declai.ra,tive block a.fter entering the simple and 
dimensioned variables, if any, in respective ta-bles. 

5-8. PRO CEDUBB e ntvar (cl ass , length, token( 1: 1000 ) , dclbit . 
niyp c IT e rr f TgT 

This routine enters variables of declarative statement 
into declarative block. The input parameters are variables 
class, length , token ( 1; 1000 ) , delbit . and ntypcl . The output 
parameters are class , length . token( 1: 1000 ) and errf Ig. 

The name of the variable along with its class a.nd 
length are available in variables tokenC 1: 1000 ) , class and 
length respectively. The variable dclbit tells whether 
the va,riable to be entered is declared explicitly, in which 
case ntypcl tells mode of declaration. 
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This routine first deteraines whether the Taria.ble is 
a simple one or dimensioned variable. If it is simple 
vaxiahle, then it is entered into simple variable table and 
corresponding entry nnm.ber entered in the declarative block. 
If it is a dimensioned variable, then the maximum arguments 
are obtained. The variable along with inf ormi^tion regarding 
8,rguments is entered into dimensioned variable table and the 
corresponding entry number is entered in the declarative 
block. The routine returns next token after the variable. 
This infoimation is passed out through the variables, class 
len£th, and token ( 1; 1000 ). 

5 - 9 . PROGBDUBB enJfcld (class, length, token (1:1000), entno . 
kdbno, ndctbt. errflg; ) 

This routine enters an identifier of any statement 

into declarative or code block depending on ndclbt being 1 

or 0 respectively. The name of identifiers along with its 

class and laagth are available in variables token ( 1; 1000 ) . 
and 

class/ length respectively. Variable kdbno specifies 
in which code block to enter. Variables entno , and errflg 
are output parameters. 

The routine checks whether the identifier is a simple 
variable or not. If it is a simple variable then it is 
entered into simple variable table and corresponding entry 
number is entered in ddclara,tive or code block depending on 
value contained by ndclbt . The variable entno is returned 


with entry number. If it is not a simple variable, then 
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the neiae is searched in dimensioned -variable table and sub- 

progran/f unction table* If it is found in any one of theiHj 

then the entry number is stored in declaratiTe or code block* 

If it is not found in them, then it is taken as a. function 

name and the routine ’prefun' is called to process the 

function call* The routine re -bums t©ken after identifier, 

along with its class and length through variables token( 1: 1000 ) 

class , and length respectively. 

nsvlnt , 

5-10 . PROGEIU H S nrefun (Asvar(l; 10). class, length, token 

'(1;1000T. entno, kTbno , errf Ig ) t 

The input parameters to this routine are varriables 
nsvlnt . nsvar( 1: 10 ) . class . length . tokenC 1: 1000 ) . and kdbno * 
The output parameters are va,riables e ntno . and errflg . 

The name of the function to be entered alongwith its 
length is available in nsvar ( 1: 10 ) . A token after this is 
available in t oken( 1; 1000 ) . Variable kdbno tells us in which 
code block to enter. 

The name of the function is first entered in the sub- 
program/function table and corresponding entry number is saved. 
This entry number is entered in the code block, Next the 
arguments of the function are got in terms of entry numbers 
of tables. Of course thee® arguments are entered in the code 
block. This infoimation legarding the argiments of the func- 
tion is entered in the en'ory number saved of subprogram/ 
function table. This routmie returns next token after the 
function call. This information is passed out throu^ varia- 
bles class , leng th, and to ken( 1; 1000 ) . 
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5-11. PROCaPUBE inidun(no) 

This routine initialises the va.riahle to zero. 

5-12. PRQGRPURE u-etdum(no) 

This routine gives next successive negative integer 

to the value con "tailed in variable no. This means that 

variable ^ is decremented by one and returned. 

5 - 13 . PROOBDUES Lntx"pr (class, length. token( 1°. 1000 ) ., 
kdbno . e r rf ld Y~ 

The input parameters to this routine axe va.riables 
class . len.c:th , tok en( 1; 1000 ) . and kdbno . The output para- 
meter is logical variable errf Ig . The^ routine enters 
expression of logical and arithmatic IP statements into 
code block specified by kdbno . 

The variables class . length, and token( 1: 1000) give 
the class, length, and token after the left parsnthesas 
of either logical IF or arithmetic IP statement. This 
routine just enters the expression of logical or arithmetic 
IP statement into code block in terms of entry numbers of 
tables. It enters upto ri^t parentheses of the expression 
and returns token after that through va.riable token ( 1; 1000 ) . 
5-14. PROOEDURE dolxi (temn(l:72). endf lo ) 

The input parameter to this routine is variable 
tem"D( 1; 72) . The output parameters are variables temn( 1: 72) 
ail <3. endf le . A card is already read and available in temp 
( 1: 72) . This routine colD.ects a statement, lexical analyses 
and stores tokens in appropriate carea. A card after the 
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statenent lexical analysed, is already read and is passed 
out through, vsrialole temod: 12 ) , The logical variable 
endf le is returned as *true’ if the card after stateiaent 
lexical analysed indicates end of deck, 

5-15. PROCSDIIES g et arg (class, lenA’th. token( 1:1000) . 

numarg, argri;~5). .idglhl, errfld 

This routine gets arguments of dirrensioned variables 
present in decla„r a.tive statements. The input parameters 
are variables class , length . token( 1; 1000 ) . and .jdclbl . 

The output parameters ame variables nuna.rg, arg( 1; 5) , 
and errflg . 

The token after the left parentheses of dimensioned 
variable is available in token( 1: 1000 ) . Pinite sta.te 
na^chine technique is used to get the arguments. The state 
diagram of machine is as follows. 



routine gets arguments one by one. They ere entered in 
appropriate tables and entry numbers ame entered into 
declarative block if variable .jdclbl ha,s value 1* At the 
end of execution of routine variable arg( 1: 5 ) con tains d 
the arguments of dimensioned variable in terms of entry 
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5-17. PROGEDUEE inistk 

This routine uses a coEuaon anea lahelled 'ptr' which 
contains variable istknt . This variable istkot is initia- 
lised to zero by this routine, 

5-18. PROCEDTJRg nshstk (dornge, entnc;, namt.fnent, apoent , 

errflg ) 

The input pa^rame ters to this routine are va,riables 
d o rage , entno . parnt , f nent . and stpent which give infor- 
mation about B. IX> statement. The output paremeter is 
logical variable errf Ig. 

This routine uses two common a.reas labelled 'pt-r' 
and ’stacks The first one contains variable istkpt and 
the second one contains variables idostn( It 20 ) . .lent ( 1: 20 ) . 
lpar( 1; 20 ) . if in( 1; 20 ) . and istenC 1; 20 ) . This means the 
size of stack is twenty. 

If there is space in the stack, then variable istkpt 
is incremented by one and the variables domge , entno , 
narnt . f nent . and stnent a.re pushed into the ste~ck. The 
variable istkpt always points to the most recently entered 
entries. 

5-19. PROCBDURS chkstk (empty) 

This routine uses a common area labelled ’ptr’ which 
contains variable istkpt . The output parameter is variable 
em pty . The routine checks whether the stack is empty or 
not. This is done by means of checking value of istkpt . 

1^ istkpt contains zero, then the stack is empty and so 
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logical variable empty is returned as ’true’. If istkpt 
contains nonzero, then stack is not empty and so lo^'ical 
variable empty is returned as ’false’. 

5- 20 , PROOgPURS ch e nd o (stno, dument, pa„rnt-, fnent. stpent , 
doend, errflg7 ~ 

The input paremeter to this routine is variable stno 
and the rest are output parameters. The routine makes use 
of two common areas labelled 'ptr' and ’stank’. The first 
one contains variable i stkpt and the second one contains 
variables idostn( 1; 20 ) , jent ( 1: 20 ) , ipar( 1: 20 ) . ifln( 1; 20) . 
istend: 20 ) . 

This routine checks to see whether the statement 
number given through variable stno ends the range of a DO 
statement, Por this the top element of stack pointed by 
istkpt is checked to see if idostn (istkpt ) and stno have 
same values. If they are same then the routine returns 
all the informa.tion about DO statement apart from returning 
logical variable doend as ’true’. The variable istkpt is 
decremented by one so that it points to next entry in DO 
stack. The logical variable doend is returned as ’false’ 
if given statement number does net end rangs of a DO 
statement. 
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DETAILS OF BETRIBVAL ROUTIl'ISS 

In this chapter the conponents of outputpart, which 
prints i t FORTRAN program from the information present in 
flowgraph, are described. In printing out statements a 
buffer of 72 locations is used. Chara.cters of the state- 
ment are entered into buffer and when a line is complete, 
it is printed out. In Section 1 we describe some of the 
routines which are used by other parts. In Section 2, 
routines which deal with printing of segment header are 
described. Routines which deal with printing of declara- 
tive staienents, code blocks and format statements are 
described in Sections 3, 4 and 5 respectively. 

6-1. SUPPORTHMO- ROUTINE'S 

¥e describe one by one the different routines used 
by other sections. 

6-1. <1 Procedure entbuf' (khar. ,1 ) 

Both varia,bles khar and j are input parameters. This 
routine eilses a common area labelled 'outb^ufi’’ wnich con- 
tains variable motbf ( 1; 72) into which a line is entered 
before printing it out. 

The vajriable J points to location upto which the buffer 
motbf ( 1; 72) is occupied. The routine enters khar in the 
next location J4-1 of buffer. If the buffer is full already, 
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then the routine prints out the contents of buffer and. puts 
blanks in first 5 locations of "buffer, a continuation mark 
in 6th column, and the khar in 7th column and returns control. 

6-1. 2 P r 0 c e duhe inibxif ( j ) 

This routine just initialises the variable J to zero. 

The variable J ooints to location upto which buffer is fill. 

6-1.3 Procedure nrtbuf 

This routine uses a. common area labelled ‘outbuf^ which 
contains variable notbf ( 1: 72) . This routine prints out the 
contents of buffer notbf ( 1; 7,2) . It will not print out the 
contents if the buffer contains just a 'COiTTIFHSl statement. 

6-1. 4 Procedure bufcmf (entno. .1 ) 

The input parameters to this routine are variables entnc 
and J. The variable entno gives entry number of the comment 
and format table, which has to be entered into buffer. The 
routine fetches the entry of comment and format ta.ble as 
pointed by varia-blo entno . Then it enters the token fetched 
in the buffer. 

6-1, 5 Procedure bufcns (entno. j) 

Both variables entno and j are input parameters to this 
routine. Variable entno gives entry number of CLnstant table, 
from which the token or constant is fetched by the routine. 

If the constant obtained is a- real or hollerith one, then 
it is entered into the buffer as they will be in character 
form. If the obtained constant is an integer- constant, then 
it is Beperated into individual digits and entered into the 
buffer in character form. 
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f - 1 . 6 Procedure bufdmn (entno, ,1 ) 

Both, variables entno and j are input peraneters to this 
routine. The routine fetches an entry, a^s pointed hjr varia- 
e ntno, . fron the dimensioned variafole table. The routine 
then enters the name of the dimensioned varia^ble in the 
buffer. 

6--1, 7 P rocedure bufemn (entno. ,1 ) 

Both variables entn o and are input parameters to 
this routine. This routine fetches an entry, as j)ointed by 
variable entno ,, from the simple variable table. The routine 
then enters the name of simple va.riable in the buffer. 

6-1.8 Procedure bufsfn (entno. .1 ) 

The input parameters to this routine are variables 
entno and 2 . This routine fetches an entry, as pointed by 
variable entno from the subprogram/f unction table. The 
routine then enters the name of subprogram/function in the 
buffer, 

6-1.9 Procedure bufstn (entno, j ) 

Both varia.bles entn o and j are input parameters to 
this routine. This routine fetches an entry, as pointed by 
variable entno . from the statement number table. The 
sta,tement number obtained is separated into individua.l digits 
and stored in the buffer in character form. 
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G-1. 10 Procedure se-pcns (nnlr. In. diA"( 1: 20 )..) 

The inpul parameter "fco "bhis rouhiue is variable ^sbr« 

The output parameters are varia ties lu and di^( 1: 20 ) . The 
routine separates: the positive number, given by variable 
nmbr , into indtvidua.1 digits and stores them in chajracter 
form in the varia,ble dig( 1: 20 ) . The variable In tells hew 
many digits the given number has. 

6-2, ROUTIITSS lEiilliTG- V^TH PRINTING- OP SSG-MBIT HBADBR 

There is only one routine in this part to be explained. 

It is described as follows; 

6-- 2.1 Procedure -nrtseg (errflg) 

There is no input parameter to this routine but the 
output parameter is logical variable errflg . 

This routine first fetches the contents of the segment 
header. If it is foimd that the segment is a main one then 
control is returned. If it is found that the segment is a 
^subroutines then the routine first enters ' SUBROUT IHB ’ in 
the buffer. The name and its arguments, if any, are entered 
latter in the buffer. After this the contents of buffer are 
printed out. 

If the segment is fomd as ’function' then it checks 
whether the function is explicitly declared, in which case 
corresponding declaration (integer, real, etc.) is entered 
first in the buffer. Then 'function' is entered. After this 
the name of function and its arguments are entered in the 
buffer. We know that arguments are present in the segment 
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header 0 s it is. At the end the contents of tnffGrs are 
printed out. If the segtDent is data’ then it is 

entered in the "buffer end printed out, locations in the 
"buffer, other than ■wha.t we entered usin. 5 : segment header, 
are filled with "blanks before printing out contents of 
buffer. 

6-3, ROTJTIIIBS DIALING ¥ITE PRINTING 01 !£"■ GL^lBATIV'ii SlnTBl^tENIS 

There is only one routine in this part to be ez-plained. 

It is described as follows. 

6-3.1 Procedure rgctdcl ( errf Ip;) 

There is no inxjut parameter to this routine but the 
output parameter is logical variable errf I g. 

This routine prints out all declarative statements 
present in the declarative block. Statements in the dec- 
larative block are delimited by markers. Bach statement is 
printed as follows. 

A token of sta.tenent is processed as foUlows, If length 
of token is non-zero then whatever present in token (l;len.gth) 
is entered in the buffer. If length is fount to be zero, then 
we know that token is in terms of entry number of e ither 
simple or dimensioned variable ta.ble as only these variables 
will be present in declarative statements. If entry number 
is of simple vaniable table, then tha^t entry is fetched from 
table and name of va.riable entered in buffer. If entry ■ 
number is of dimensioned variable table, then that entry is 
fetched from that table. First the name of variable is 

* 



75 


entered in "buffer. Then using argument entry num'bers, 
the arguments are fetched from constant table, separated 
into individual digits and entered into buffer. Of course 
the arguments are separated by commas and enclosed in 
parenthesis in the buffer. In this way all tokens of a 
declarative statement a.re processed an.d entered in buffer. 

At the end, the statement is printed out through buffer 
after entering blanks at apprbpria,te places in buffer. 

In the above said way all statements present in , 

declarative block are printed out and control returned. 

6-4. ROUTII^HS lEALIITG WITH IRIFTING OF STATEMENTS IF GOIB 

ElOCK 

The different routines are describedi as follows. 

6-4.1 Procedure prntcd (errflg) 

There is no input parameter to this routine but the 
output parameter is logica.1 variable errf Ig . This routine 
prints out contents of all code blocks. 

The routine first gets the number of code blocks whose 
contents are to be printed out. Then it processes al.1 code 
blocks* Statements in a code block will be delimited by end 
markers. A statement in a code block is processed as follows. 

The first token of a sta-tement is brought. It is 
seen if that token is a statement number entry. If it is 
foimd that statement has statement number, then it is fetched 
from statement number table, separated into individup.1 digits 
and entered into the buffer in locations 1 to 5. The token 
after this sta.tement number is brought and is processed as 
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follows. 

If the length of token is found as non-zero, then token 
(1; length) is entered in the buffer. If the length is found 
as zero, then it indicates that the token is in terms of 
entry number of table,, To which table the entry belongs to 
is known by examining the last digit of token( l ) . Then 
appropriate routine is invoked to fetch that entry and is 
entered into the buffer. When an end na.rkeris seen while 
getting a token, then it is seen whether the statement being 
processed is logical II' sta,tement. In this case of logical 
IF statement, it is checked to see if target is entered in 
the buffer. This is achieved by examining last token for 
right parenthesis. For this purpose vaxiable klnrev keeps 
track of class of last token entered in buffer. If target 
of logical IF is not entered in buffer, then routine *prlgif ’ 
is called to do the same. The statement present in the 
buffer is then printed out e±ter entering blanks a«t appropriate 
places. While processing a statement if a continuation mark is 
seen in the code block, then next code block is obtained and 
processing continued. In this way all statements in a code 
block are printed out. When statements in a code block are 
over, then next code block is obtained and processed in same 
manner as above, Thus this routine prints out contents of 
all code blocks. 
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f-4 . 2 Procedure T>rli^!:if (kdlrno, J. errfl.^'. class . 
len,-;th. token ( 1; lOOOTT 

Input parameters to this routine are varieties kdtno 
and J_. Output parameters are variables class . length , errf Ig 
token (l;1000) . This routine prints out target of a 
logics,! IP sta,tement„ whose expression is in code block 
specified by kdbno . and target in the next code block. 
Variable ji tells upto what location the buffer is full. 

The routine first checks to see that code block con- 
taining expression of logical IP sta.tenent has no other 
tokens in it. Then it gets next code block which has the 
target of logical IP, Tokens of this target statement are 
brought one by one and processed as follows. 

If the length of the token is non- zero, then the 
token (1; length) is entered into the buffer as it is. 

If it is found that length of the token is zero, then it 
indicates that token is in terms of entry number of some 
table. To which table the entry belongs is detected by 
checking the last digit of token( 1) . Then appropriate routine 
is invoked to fetch that entry and is entered into the buffer. 
The above procedure is repeated until all tokens are 
processed i.e., imtil an end marker is seen. Then the routine 
returns control back. 
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6-4.3 Procedure cdtlsz (nocdlol) 

The varialDle nocdhl is an output pa.raaeter of this 
routine. The routine finds the nunher of code blocks used 
hy the setjUent, Pirst this routine calls procedure called 
'inaxtlh’ to .^et tc know hew many number of flow blocks are 
used by segment. Then it calls routine ’gtkdno’ t'^ know 
the code block corresponding to last flow block used. This 
gives the number of code blocks used and is passed out 
through variable nocdbl. 

6-5. ROUTIKSS JEALim WITH POT .MAT STLTE&SPTS PRIITING- 

There is only one routine to be described and is ex- 
plained below. 

6-5.1 Procedure prtfmt (errfla;) 

The logical variable e r rf 1^? is an output parameter of 
this routine, which prints out all format statements. 

The routine first gets the number of entries present 
in the statement number table o Then each entry is fetched 
from the statement momber table a,nd examined to see if 
statement number is uf a format statement. If it is 
found that it. is a format statement number, then entry 
number in comment and format table where actual POEMAT 
statement is available is got. This entry is fetched and 
POEMAT statement is entered in the buffer and printed out 
after putting blanks in appropriate pla.ces. The above 
procedure is repeated until all the entries in statement 
number are examined. 
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FUTUEE WORK /JJD COFCLUSIOIS 

A package, which, can r ead a 80 colunn card deck of 
FORTRAM progran segment and store it in the fom of flow- 
graph and which can convert the flowgaa,ph hack into FORTRAN 
program, has been designed and implemented. 

7-1, FURTHER WORK TRiYD CAN B5 DONE 

This project can be extended to achieve ssome program 
manipulstions . Some of the things which can be done are as 
follows; 

Optimization, in terms of execution ^eed improvements, 
of the given F0B.TRAN program can be achieved sinpe this pack- 
age stores the given FORTRAN program in a convenient form 
for such manipulation^ One more thing tha.t can be done is 
compilation of the given FORTRAN program. Data flow analysis 
of the given FORTRAN program also can be done using this 
package. 

7~2, CONCLUSIONS 

The present package is thus usefiAL in achieving program 
manipulations. In its present form this package can deal 
FORTRAN program segments which can split into less than 
thirty blocks. If one wants to extend this to dea.1 big 
programs, he just need to change the labelled COMMON sta.te- 
ments in necessary modules. For example, if one wants to 
increase the size of comment and format table, what all he 
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needrr to do is to just change the labelled COMMOIT statements 
present in routines of the nodule dealing with COfMENT 
and EOEMAT table. One limitation of this package is it 
does not allow identifie is which start with any of the 


reserved word. 
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/iPrEKDIX A 


Token Class 


Eey -wrrds 

-1 

Identifier 

0 

Integer Enmler 

1 

Real R-unber 

2 


3 

Unary + / - 

17 

Binary + / - 

4 

/ 

5 

=r 

6 

( 

7 

) 

8 

f 

9 


10 

» 

11 

*=t 

12 

Comment 

13 

Statement R-unber 

14 

Hollerith 

16 



Reserved word Class 


Logical IF 

-70 

Arithnetic IF 

-80 

ERL 

-90 

STOP /RE FURR 

-82 

CORTIRIIB 

-60 

WRITE 

-60 

FORMAT 

-40 

GO TO 

-81 

RE iJD 

-60 

PRINT 

-60 

PUNCH 

-60 

PAUSE 

-62 

DATA 

-30 

CiJEL 

-61 

REAL 

-21 

INTEGER 

-20 

LOGICAL 

-22 

COIC'LBZ 

-23 

COMI'-'iON 

-28 

BQUIYilLENCB 

-25 

FUNCTION 

-11 

SUBROUTINE 

-10 

DII!iENSION 

“26 

DOUBLE) PRECISION 

-24 

REWIND 

-60 

ENDFILE 

-60 

BACK SPACE 

-60 

ASSIGN 

-60 

DO 

-50 

TO 

-99 

EXTERNAL 

-29 

BLOCKDATA 

-12 



A?3?ENDIX B 


Character! s) 


Major Class 

Individual Class 

blank 


1 

1 

Letters ) 

A-D,B,G,I-Z) 


2 

23-26,28,29,31-48 

Letter H 


3 

30 

Letter E 


4 

27 

Digits 0~9 


5 

13-22 

+ or - 


6 

3,4 



7 

2 

• 


8 

12 

Deliniters 
/ 1 

) 

) 

9 

1 

H 

H 
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iiTIENDIX C 


The following are the routines and are described in 
pseudo-computer language [ffiha.pt er 2 ]. 

1. Procedure clstnt ( dmt (1;700), temp(lj72), endfle, 

Instnt, error); 

b egin comment i This routine collects a statement from 

input; rrior to this a card has already 
*.been read into 'tempi’; 
error< 5 — 0 ; endf le ■«— 'false ' ; 
if (temp(l) 4 ^ comment) then 

begin comment; check for col. 6 of previous 

ca.rd read; 

if (tenp( 6 )?^blank A temp(6)j4o) then 
^ comment; error-col. 6 ignored. 

temp( 6 ) -^blank; errors— error+ 1 ; 

end 
^i ~ 

end 

f i ” 

comment; now move previous card read, into 'stmt'; 
for 3 = 1 to 72 do^ 

stmt ( 3 J^t'^-temp ( 3 ) ; 
od 

Instmt « — 72 ; chkf Ig ' f als e ' ; 

while — iclakflg) do 

read a card; 

if (tempi l) 5 /-connent A stmt (l);^comnent ) then 

' begi n comment; check for end of file marker; 

^ (tempi l)=slash a tempi 2 )=slash) then 
be g in endfle 'true'; 

chkf Ig ' t rue ' ; 

end 

els e comment; check for continuation 
card; 

if 1 tempi 6 )=b lank V temp( 6 )=£)) then 
begin chkffe ^ 'true ' ; end 
^l lse comment:we got cont.card; 
if 1 Instmt > 666 ) then 
begin error; 

chkf Ig -e- 'true ' 

end 

else comment; check for 
blanks in col, 1 - 5 ; 
for m = 1 tc 5 do 
if 1 temp 1 3 ^?^^ahk ) 
then error; 
f i 
od 
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end 


fi 

fi 

end 

e lse chkf Ig — 'true’; 
f i 

od 

connent: now we put a marker 
stmt( lnstnt+1) marker*, 


for k=7 to 72 do 

Instmt lnstmt+1 
stmt(lnstmt) 

temp(k)? 


od 


at the end of stmt. 


2. Procedure nxtchr ( stmt ( 1: 700 ) ,,i ) j 

he gin comment: This gets next character present at i+lth 

position in stmt, along with its classes 
if (klchf^klhlank ) then 

beg in kp r ev k I'c h j kprev2<^klass2*, end 
f i 

i ■<" i+l> char <=~s±mt(i)*, 
chrcod(char, kodch, klch, klass2)*, 

end 


3« ^Procedure chrcod ( char, kodch, klch, klass2) j 

begi n comment: Given a character, this gets its code 

and different classesj 
ncnst -f- 2 t 3 O 5 kodch < — char/ncnstj 
if (char < 0) then kodch ^ 32-kodch; f i 
klch ^ istcls(kodch+l)*, klass2 indcls(kodch+l)*, 

end 

4. Procedure fsmthl (state, klch, nxtact, nsta.te); 

begin: comment; Given present state, and class of character 
got, this gives next state and action to be taken*, 
ntemp •<— mchthl (state, klch)> 
nxtact«f~ ntemp/lOO*, 
nstate ntemp - nxtact it 100} 

end 


5 . Procedure newoulj 
begin kount <=- Ij end 

6, Procedure newtkn} 

begin klsptr kount} 

koutlx( kount ) <? 1; koutlx(kount+l) ^ — -1} 

kount kount +2.} 

end 
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7. Procedure addchrCkhar)*, 

IjepCln koutlx(kount) kharj 

kount koun.t+1*, 

end 

8 , I roc e dure def cls(klas) j 

“begin koutlx(klsptr) ^ klasj end 

9- Procedure endtkn-. 

kegin kount lx (klsptr+1) kount - klsptr-2; end 

10 o Procedure endouR.C;> 

“begin kout lx( kount ) marker*, end 

11. Procedure cnsint(n)*, 

begin comments This constructs an integer from individual 

digits of token, and stores it*, 
noofdg kount - klsptr-25 n ^0> ncn 2 f 50j 
for i = 1 ^ noofdg do 

nptr klsptr + i + 1; 
n n 10 + kout lx( nptr) /ncnj 
kount ^ kount~l> 

p,d 

kouiilx (kount) #— ny 
koimt kount+1} 

end 

12. Procedure newlxij 
begin kount I5 end 

13f Procedure cheolx (endlxi)j 

begin comment: This one checks whether tokens of stmt, are overj 
endlxi ’ f alse ^ ; 

if (kountlx (kount) = marker) then endlxijf—’true'j fi 

end 

14. Procedure fchtkn (class, length, token(l: 1000) )} 

begin comment: This fetches a token stored in ’koutlx’j 

class # — koutlx (kount)? length d^koutlx(kount+l)', 

kount e— kount+2*, 

for j = 1 to length do 

token ri) ^‘-koutlx(kount ) j 
kount ^ kount +lj 
od 

end 

15. Procedure restbl? 

begin comment: This routine constructs reserved vord table? 

reads all reserved words along with details; 

end 
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16 . Proced-ure strtwd (char, resflg); 

legin coEinent: This routine checks first letter of 
identifier with possible reserved wordj 
resflg ■f— 'false nptr irootj 
while (nptr?to) do 

if (kode(charT^ = kode(mchar (nT)tr)) )then 

begin resflg if«>--*true 'j nptr -^msuccCnptr) j_end 
else if (kode(char)> kode(inchar(nptr) ) then 

nptr ^^idnalt(nptr)i 
else nptr iupalt (nptr); 
f i 


fi 


od 


end 


17 . function procedure kode(m) 

begin comment; This gives internal code of m*, 
nconst ^ 2 f 30-9; kode -^m/nconst; 
if (kode ^ 0) then kode — 32-kode*, fi 

end 


18 , Procedure oknxch (char, signal, next, class); 

begin comment; This routine searches character other than 

first of an id with a corresponding char in res. word; 
signal ^ -1 

if (khar(nptr) = endmrk) then 

begin signal -f-o- 2; next ^ isux(nptr)/lOO} 
class — (isux(nptr) - next at 100); 
nptr ^ malt (nptr); 

end 

else if (char = khar (nptr)) then 

begin signal'll; nptr<^— isux(nptr); end 
else nptr<e- malt (nptr); 
while (nptrjfc 0) ^ 

if ( char=khar(nptr) ) then 

b egin nptr #»»-isux(nptr); 

signal ^ 1; return; 

end 

else nptr •#-- malt (nptr); 
f i 

od 

signal #»-0; 

fi 

fi 

end 
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19. Irocedure lescal (stmt(l: 700 ) 5 i,ln.sti]it, error)-, 

be^in conKaent: This one outputs tokens of stmt. ( 1; 700 ) 

Already a non-hlank character, its code, 
classes have been got. 

newoul} 

cooaent; first we check for comment stmt, 
if (i=l A char = count) then 

begin newtkn-, defcls (cmtcls)j 

for i = 1 72 ^ addchr (stmt(±)); od 

endtkn*, endoul} return 

end 

else comne'nt: we check for stmt, no. firstij; 
if (i ^ 5) then 

begin newtkn; defcls (stmtcl); 

Repe at 

if stmt( i )£di,git) then addchi^nt(i) ) ; 
else if (stmt ( i)?^b lank) then 
error; 
f i 
fi 

i •<— i+1; 
until i > 5 
cnstnt (mn): endtkn; 
nxtchr( stmt(l: 700) , i); 

end 
f i 

out loop: newtkn; state « — 1; 

loop: fsmtbl (state, klch, nxtact, nstate); 
case class of 

blank: state nstate; 

class nxtchrC stmt ( 1: 700), i); 

go to loop; 
char, : addchr( char ) ; 
class state •instate; 

nxtchr( stmt( 1: 700) , i); 
go to loop; 

delim. : comment: we got delimiter other 
class 


+/- 

class 


than + / - , 

addchrC char); def cls(klass2); 
endtkn; 

if (klass2=keol) then go to last; 
else nxtchr( stmt { 1: 700 ) , i); 
go to outloop; 
fi 

:comm‘3nt: we got +/- check for 
unary or binary; 
addchr( char); 

if (klirev2=kequal V kprev2=klpar) 
then def cls(unplmi}i 
else defcls (bnplmi); 
fi 

endt 4 n;nxtchr( stmt(l: 700) , i); 
go tq outloop: 
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i 

class 


idols: 

into Is: 

re aid: 
ksrwdcl: 

ho Ire 1: 

first : 

letter 

class 


: coianent: we got Check 
for another ± 
addchr( char ) > 

Repeat nxtchr( stmt ( 1: 700 ), i)j 
until ( charjfchlank) 
if rchar=star) then 

“begin add chr( char )•, 

defcls( dhlstr)} 
nxtchr( stmt ( 1: 700) , i) 

end 

else defcls (kstar)> 
f 1 

endtknj 

go to outloopj 

comment: we got an identifier;, 
def cls( idclsT; endtkn; 
go to out loop; 

commenf; we got an integer no.; 
def cls( intcls ) ; cnsint(num); 
endtkn; 

^o to out loop; 
comment; we got a real no.; 
def cls( realcl) ; endtkn; 
go to OUtloop; 

Comment: we got a keword; 
addchr( char) ; def cls(kywdcl)*. 
endtkn; nxtchr( stmt( 1: 700) , i); 
go to* out loop; 

comment; we got a hollerith const.; 
cmsint( number) ; addchr( char) ; 
defcls(holrcl); 
for k = Ijio number do 
i — i+1; 

addehr (stmt(i)); 
od 

endtkn; nxt chr( stmt ( i ) ) ; 
go to out loop; 

comment: we got first letter of 
identifier/res. word; 
addehr ( char); 
strtwd( char, resflg); 

_if(resflg) then state nst ate; 

else state 2; 

f i 

nxt chr ( stmt ( 1; 700 ) , i ) ; 
go to loop; 
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other : comnent: we got another chp,r. check 
char for natch in res, word*, 

class oknxch(char, signal,next, class)*, 

if ( signal=0 ) then 

be gin addchr( char ) *, 
state 2; 

nxtchr( stmt(l; 700) ,i) j 
go to loop; 

end 

else i?~ ( signal=l) the n 

begin addrhr( char ) ; 

^ state ^-rnetate; 
nxtchrC stml(l: 

700 ),i)', 
go to loop; 

end 

else case class of 

docls: commentx-we got 

do; 

if (klch^digcls) 

tMa 

state nstate; 
go to loop; 
f i 

def cls( class) ; 

endtkn; 

put stmt . no . 

after DO as 

taken in 

output; 

go to &uti©op; 
endcl: comment; we got 

’BUD t 

if ( klass2=keol) 
then 

def clas( class) ; 
endtkn; 

go to outloopj 
else 

state<i-nstate; 
go to loop; 
fi 
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reswcl; comment; we got 
class res. 

wd other 
than do, 
end, 
format-, 

def cls( class) ; 

endtkn-, 

go to outloopj 
f ormat: coimment; we got 


class fomat-, 

def cls( class)-, 
for in=2 Instmt 
do 

addchrrstmt(E.) )> 

od 

endtkn; 

nxtchr( stint( 1; 

700 ) , instmt ) ; 
go to ontloop; 

end 

f i . ' ; 

_f i 

completes comment; we got complete res. word/ 
wd , c las s ident if ie r 

oknxch( char, signal, next, class)-. 
if(signal/l) the n def cls( idcls) ; 

endtkn; 

go to out loop; 
e lse if ( class=fmtcls) then 
begin def cls( class); 

for m=i to Instmt , 
do 

add!irhr( stmt(m)); 
od 

endtkn; 

nxtchr( stmt( 1; 

700 ) , Instmt); 
go to outloop; 

end 

e lse def cls( class ) ; 
endtkn; 

go to outloop; 
f i 
f i 

error ; error; return 
class 

3nd 
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f i 


last ; nevlxi> fclatkn( class, length, token( 1; 1000 ) j 
if (class = if els) then 

begin connent; we separate logical IF 

and ari th . IF 
i 4 -token( !)♦, ii'«^token(l)‘, 
f chtkn( class, length, token( Is 1000) )? 
iparct 1> 
while (iparct^) do 

fchtknl class, length, token( 1: 1000 ) ) 
if ( class=lparcl) then 
iparci < — iparct+l; . i 
f i 

if ( class=rparcl) then 
iparct <»^ipa.rct-l; 

fi" 

M 

f chtkn( class, length, token( Is 1000 ))j 
newoul; newtkn*, addchr(i)*, 
addchrC ii)*, 

if ( class=intcls) then def cls( arif cl) 5 

else def cls( Igif cl) I 
f i 

endtknj 

end 

else conraents we seperate function sub. 

program such as integer 
function etc.*, 
class e declcl) then 
begin for i = 1 to length do 

itemp(i) tokenTi)*, 
od 

Snth — length*, 
f chtkn( class, length, token 
Is 1000)); 

if (class=fncl) then 

begin newoul; newtkn*, 
cla,ss-100 
def cls(k)*, 
for j=l ^ i-lnth 
do 

addchr( itemp( 3 ) )s 
od 

endtkn; 

end 

fi 

end 
f i 
fi 


end 
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20. I'rocedure inicntj 
begin kmtptr 1; end 

21. Procedure entlne (class, length., token( Is 1000 ) , 

entno, errflg); 

begin comment: This routine enters a comment, '_or fomat 

statement into the table; 
if (kmtptr kmtsze) then error; return; ^ 
entno kmtptr * 10 + 1; 
kntbl(l, kmtptr)«— class; 

k mtbl (2, kmtptr) length - iniptr + 1; 
k .f— iniptr; 
while (k 4 length) do 
strptr^3; 

klim < — min( length, k, 71) ; 
while (k 4 klim) do 

kmtbl (strptr, kmtptr) ^token(k); 
strptr strptr+1; k — k+1; 

if (k 4 length^ then kmtbl( 75, kmtptr ) <^kntmrk; 

else kmtbl( 75, kmtptr) ^^nocnt; 
f i 

kmtptr . 0 * kmtptr+1; 
od 


22. Procedure fchlne (class, length, token( 1: 1000 ), entno, 

errf lag); 

begin comments This fetches an entry of table, if entry 

number is given; 

if (entno > kmtsze) then error; retirm; ^ 
nptr ^ entno; 

class ^kmtbl(l,nptr); length-^kmtbl( 2, nptr); 
k 1; 

while (k ^ length) ^ 

strptr 3; klim — min( length, k+71); 

-virhile (k <. klim) do 

token(k) '«^kmtbTr strptr, nptr); 
strptr-! — strptr+1; k — k+1; 
od 

if (k ^ length) then 

if ( kmt b 1( 75 . nntrT?4kntmrk ) then error; return; ^ 

0 3.30 

Ifrta 2 itbl( 75 ,nptr) 7 ^nocnt) then error; return; fi 
f i 

nptr nptr + 1; 
od 

end 
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23 . Iroceclure endcmt-, 

begin kmtbl(l,kmtp1;r) .^endmrk)*, end 

24 . Irocedure inicnsj 
begin knsptr t — 15 end 


2-5:. irocedure entcns(class, length, token(lj 1000), entno, 

errflg)-, 

begin comnent; This enters a constant into the table*, 
if (knsptr > knsze) then err or j return ^ 
entno knsptr ^ 10+2*, 
knst bl( 1, knsptr ) c lass-, 

knstbl( 2, knsptr) length-, 
k 1-, 

while (k length) ^ 

strptr 3*, klin «— inin(k-M6, length); 
while (k ^ klim) dp, 

knstbl( strptr, knsptr) — token(k); 
kjg*— k-^-l; strpts? .^ 5 = — strptK-fl; 
od 

if (k length) then knstbl ( 20, knsptr ) ^ kntmrk;; 

else knstbl( 20, knsptr ) se—nocnt; 
fi 

knsptr.*- — kneptr-i-l; 

end 


26 . Procedure fchcns ( class, length, token( 1: 1000 ), entno, 

errflg); 

begin conment" This routine fetches an entry from table, if 

entry number is given; 
if (entno > knsze) then error; return fi 
class tp-. cnstbl ( 1 , entno); 
length .5»-knstbl(2,entno); 
nptr entno; k 4 — 1 ; 
while (];<^ length) 

strpp": <e- 3 ; klim j^min(k+l 6 , length); 

whil? (k ^ klim) ^ 

toien(k) < — knstbl( strptr, nptr); 
k f-k+ 1 ; strptr -^—strptr+ 1 ; 

od 

if h ; length ) then 

^ (knstbl( 20 , nptr) ^kntmrk) then error; return fi 
else if (knstbl ( 20,nptr)i4nocnt ) then error; 

return 

fi 

f -1 


nr *' r'*’^'' ^-?nptr-{-i^ 


oa 


end 


27 . Proc j lure endcns; 

begin kns t bl( 1, knsptr ) — marker; end 
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28. i- roc e dure inidian*, 

beigin dmnptr «f — 1*, end 


29. 


I'rocedure entdmn (Inth, token( 1 : 1000 ) , exptyp, typclj 

entno, errflg); 

begin coinment; This enters a dimensioned variable along 

with some deails into the table; 

_if (Inth > 6) then error; return; fi 

if (dmnptr > ntblsz) then error; return; fi 

dmntbl (1, dmnptr) Inth j ; 

dmntbl (8,dmnptry exptyp; 

dmntbl (9, dmnptr) ^ type 1; 

comment: we enter name of varia,ble now 

for i = 1 to Inth do 

dmntbl (i+1, dmnptr) token(i); 


od 

for i = 1 dmnptr dp_ 

if (dmntbl(l,i)=lnth) then 
” b e gin for j = 1 to Inth do , ^ v 

if (dmntbl( j+1, i) 9 ^token( j)) 

fi 

entno i> 
go to lend ; 

end 

out; continue; 


then go to out 


fi 

od 

lend ; if (entno = dmnptr) then dmnptr ^ dmnptr-M; ^ 
entno entno ^ 10+3; 


ena 


50. procedure adjdmn( entno, numarg, arg(l;5), errflg); 

begin comment; This routine stores arguments of a dimensionec 

vaJTiable, if entry no. is given; 
entry entno/lO ; 

if (entry > dmnptr) then error; return; fi 
dmntbl (10, entry) -<?— numarg; 
for i = 1 t^ numarg do 

dmntbl (i+10, entry) arg(i); 
od 


end 
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31. Procedure fchdmn (entno, Inth, token(l; 1000), 

exptyp, typcl, numarg, arg(l:5), errflg)^ 
begin comment: Phis routine fetches an entry f rom dimension 

var, table, given an entry number; 
if (entno ^ ntblsz) then error; return; f i 
Inth^e^dmntbl ( 1, entno) ; 
for i = 1 Inth do 

token(i) ' dmntbl( i+1, entno); 
od 

exptsrp 1 #— dmntbl (8, entno); 
typcl ■^r- dmntbl (9, entno); 
numarg — dmnt bl ( 10 , entno ) ; 
for i = 1 iiQ numarg do 

arg(i) « — dmntbl~Xi+10, entno); 
od 

end 

52. Procedure enddmn; 

begin dmntbl( 1, dmnptr) .^^marker; end 

33. Procedure schdmn (Inth, var(l:10), found, entno); 

begin comment: Given a name, this routine searches 

dimensioned variable table, and reports; 
for i = 1 io (dmnptr-1) ^ 

if (dmntbl (1, i) = Ihth) then 

begin for j = 1 Ild Inth do 

if (dmntbl( j+1, i)ji^^r( 0 ) then go to 

last; 
f 1 
od 

entno — i*10+3; f ound ’ true ‘ ; return 

end 

last: continue; 
od 

found 4 — *fiils4^ 


end 



34. 

Procedure inismp; 


begin 

mpiptr 1; end 


35. 

Procedure entsmp (Inth, token( 1: 1000 ) , exptyp. 

\ 


typcl, entno, errflg); 

begin comment: This routine enters a simple variable into 

table and returns entry number; 
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^ (inth > 6) then error; return*, ^ 

if (mplptr ^ nplsze) then error; return; ^ 

mpltbl(l, mplptr) Inth; 

mpltbl (8, mplptr) •«— esptyp; 

mpltbl (9, mplptr) typcl; 

for i = 1 to Inth do 

mpltbjk(i+l, mplptr) iS*»- token(i); 
od 

for i = 1 ^ mplptr to 

if (mpltbl(l, i) = Inth) then 
begin for j = 1 te Inth dp. 

if (mpltbl( 3 + 1 , i)?^token( 3 ) ) then 
begin go to out; end 
f i 

entno i; 
go to last; 

end 

out: continue; 
fl 
od 

last: if ( entno=mnlptr) then mplptr i$^mplptr+l; fi 
entno entnoifcio+4; 

end 

36, Irocedure fchsmp (entno, Inth, token(l: 1000), exptyp, 
typcl, err fig); 

begin comment: This routine gets an entry of simple variable 

table if entry number is given J 
if (entno mnlsze) then error; return fi 
Inth mpltbl( 1, entno ) ; 
for i = 1 iLQ Inth .to 

token(i) •f-*- mpltbl(i+l, mplptr); 
od 

exptyp) ■«t~mpl±bl( 8, entno ): 
typcl mpltbl (§, entno); 

end 

37. Procedure endsmp: 

begin mpltbl(lj, mplptr) ^marker; end 

58, Procedure inisfn; 
begin sfnptr#*-!; end 
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39» 


Irocedure entsfn(lnth, token(l; 1000 ) , entno^ errflg, 
flag)j 

legin coEnnent; This routine enters the nane of subprogram/ 

function into the table and returns entry 
number; 

Flag indicates whether newly entered or 
previously present-, 
flag ’ t rue ' 5 

if (sfnptr ^ mtblsz) then error-, return ^ 
if ( Inth y 6 ) then error> return ^ 
sf ntbl ( 1 , sfnptr) Inth-, 

for i = 1 Inth do sfntbl( i+l, sfnptr) — ■ t oken( i); od 
comment; new we search the table to see if already 
pre sent-, 

for i = 1 to sfnptr do 

if ( sfntbl( 1 , i)=lnth) then 

begin for j = 1 Jo Inth ^ 

if ( sfntbl( 3 + 1 , i) / tokenCj)) then 
” go to outj 


fi 

od 

entno — i; 
go to lastj 

end 

out; continue^ 


fi 

od ’ 

last; ^ (entno = sfnptr) then 

begin flag-,^ — ’false^j 

sfnptr -<^sfnptr+l-, end 
f i 

entno entno* 10 + 5 ; 


end 


40 . Procedure adj sfn( entno. numarg, arg( 1: 20 ) , defbit, 

defent, chkbit, errflg ) 5 

begin comment: This puts arguments etc, of a subprogram/ 
function if entry number of it is givenj 
entry — entno/ 10 -, 

if (entiy > sfnptr) then error-, return fi 
if (chkbitf^l) then 

begin sfntbl (8, entry) ^numarg-, k.^1-, 

” while (k 4 numarg) ^ 

strptr^9; klim-#-min(k+ 8 , numarg) 5 
while (k^klim) do 

sfntbl( strptr, entry ) — arg(k)-, 

k#— k+lj strptr#*. strptr+lj 
od 

if (k 4 numarg) then sfntbl( 18, entry )^f— 

kntmrkj 

else sfntbl( 18, ehtry) -<?— 
nocnt; 


fi 
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entry •< — entry+lj 

oi 

ent -t— entno/lO j 
sfnt'bl( 19 , ent ) ■*— def lit j 

if (defbit=l) then sfnfbl( 20 , ent ).<^def ent; 
f i 

sfnptr entry; 

' ..lend 

else ( sf nthl ( 8 ,entry) 9 ^n'uinargVsfnt'bl( 20 , entry) 

5 ^def ent ) 

then error; 
fi 

ti l 

end 

41. Procedure fahsfn( entno, Inth, token(l; 1000 ) ,nuinarg, 
arg(l: 20 ), defbit, defent, errflg); 

b egin comment; This routine fetches an entry from the 

table if entry number is given; 
if (entno ^ mtblsz) then error; return f i 
Tnth sf ntbl ( 1 , entno ) ; 

_f or i=:l t^L Inth ^ token(i)<^ — sfntbl(i+l, entno); qd 
*numarg>t— sfntbl( 8 , entno): 
defbit -It- sfnthl( 19, entno); 

if (defbit=l) then defent#‘Sintbl( 20, entno); fi 
nptr^ entno; k *- 1 ; 
while (k 4 niamarg) 

strptr 9 ; klim min(k+ 8 , numarg) ; 

while (k<klim) ^ 

arg(k) <e— sfntbl( strptr, nptr); 
k k+ 1 ; strptr strptr+ 1 ; 
od 

if (k 4 numarg) them 

if ( sfntbi( 18 .nntr) 7 ^kntmrk) then error; return 
fi 

else if ( sfntbl( IS.nntr ) 7 ^nocnt ) then error;return 
f i 
f i 

nptr nptr+ 1 ; 
od 

end ” 

42. Procedure eMfefh(i,e 

begin sfntbl( 1 , sfnptr) ^ — marker; end 
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43. 

"begin 


end 


Irocednre schsfn(lnth, var(l: 10 ),found,entno)j 
comment: G-iven name, this routine searches suhprog, / 
function table, and reports back} 
for is:l ( sfnptr- 1 ) do 

if ( sf ntbl( 1 , i )=lnth 7 *~ the n 

be gin for 3=1 Inth ^ 

if (sfntbl( j+ 1 , i)^var( 3 ) then 


f i 
■ od 
found 


fi 

06. 

dntho fe- iiia+5} 

end 

last : continue *, 


go to last*. 


found ' true ' % return 


‘false ‘} 


44. irocedure inistn} 

begin istmpt -f- 1 } end 


45 . Irocedure entstn (nmbr, entno , errf Ig)} 

begin comment: This routine enters a statement number into 

the table and returns entry number} 
if ( istmpt >• ktblsz) then error} return fi 
if (nmbr^ -9999) then 

begin comment: ¥e search the number to sec if 

already prexsent*, 
for i = 1 tQ Jj-istmpt-l) do 

if ( istjatb( 1. i)=nmbr Tthen entno <c-- 

i*10+6} 
return f i 
od 

end 
f i 

istmtb ( 1, istmpt ) ^nmbr} 
entno istmpttlO+S} 
istnpt^istmpt+1} 

end 


46. Procedure adjstn ( entno, fmtflg,num, errf Ig)} 

begin comment; Given an entry number, this routine adjusts 

links} 

nentry'«~ entno/ 10*, 

if (nentry ^ istmpt) then error} return fi 
istmtb (2,nentry)-i — fmtflg*, 
istmtb ( 3 ,nentry 5 num} 


end 
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47. ^ irocedure fchstn (entno, stno, fratflg, link, errflg)j 
..^6 gin cosiiaents This routine fetches an entry, when entry 

number is gi-wen; 

if (entno ^ ktblsz) then error? return f i 

stno4— istntb (l,entno7T 

fntf Ig ^ istntb (2, entno); 
link — istntb (3, entno); 

end 

48, irocedure endstn; 

begin istmtb (l,istmpt) marker; end 


49. x'rocedure mazflb (if lb); 

begin comment; This routine gives flow blocks used upto 

new; 

ichek-« — istmpt-1; 

if lb ^0; 

if ( ichek40 ) then 

begin for i = 1 t^ ichek do 

if (is±mtb(^)54l7 then 

begin if (istmtb(3. i)>if lb)t hen 

if lb’e-istntbT3, i) 
fi 

end 
f i 
od ~ 

^nd 

£i 

end 


50. Procedure stnosz (itblsz); 

be gin comment; This gives size of stmt no. table; 
itblsz -i — istmpt-1; 

end 


51. Procedure iniseg (nflbno); 

begin comment; This initialises segment header; 
nsghdr(l)'*- main; nsghdr(2) ^ Inkcmt; 
nsghdr(3) nflbno; 


end 
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52= Irocedure adjsegl class, length, token(l: 1000 ), sbrfnc, 

exptyp, typcl, errflg)? 

Jse^gin coment; This adjusts segment header, when it is 

found that segment header is subroutine 
or function*, 

sveflb nsghdr(3)*, svecmt^ nsghdr(2); 
nsghdr( 1) ^-sbrfnc*, nsghdr(2)^ exptyp*, 
df (exptyp=l) then nsghdr(3)-e=typclj fi 
fchtkn (class, length, token( 1: 1000 )77 

if (class -fz idcls) then error*, re tuna f i 

nsghdr(4)*-- length-, locptr ^length+5-, 

toy i=l tp length dp nsghdr(i+4)< — token(i)> od 

nargpt locptr*, ^ 

locptr -e- locptr+1*, 

numarg ^ 0 ^ 

fchtkn (class, length, token (1:1000) )j 
if (class ^ keol) then 

begin i f (class Iparc 1) the n error; return f i 
fchtk. n( class, length, token ( 1: 1000) ); 
if (class^idcls Aclass?^intcls) then error; 

re turn 
f i 

for i=l -th length do 

nsghdr (locptrT^ — token(i); 
locptr locptr+1; 
od 

numarg a- numarg+1; 

fchtkn (class, length, token(l: 1000) ); 
while (class ^ rparcl) 

if (class ^ kmmacl) then error; return. 
f i 

nsghdr ( locptr) -s.— token( l); 
locptr — locptr+l; 

fchtkn (class, length, token( 1: 1000) ); 
if ( class^idcls AciasSj^intcls) then 

error; return fi 
for i=l ts length do 

nsghdr ( locptr) token(i); 
locptr >< — locptr+l; 
od 

numarg^ numarg+l; 

fchtkn (class, length, token( 1; 1000) ); 
od 

f chtkjfen (class, length, token( 1: 1000) ); 
if ( classj^keol) then error; return ^ 

€-nd ” 

fl 

nsghdi (locptr)-^- sve cmt ; 
nsghdr ( locptr+1) •^—svef lb; 
nsghdr (locptr+2)<. marker; 
nsghdr ( nargp t ) «- numarg; 

. end 
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53. Irocedure f ch.seg(nseg(l: 50 )•) j 

begin comiiient: This routine gets contents of segment header; 
i 0; 

Reneat 

i i+1; 

nseg(i) — nsghdr(i); 
until (nseg(i) = mrkr) 


54. Procedure iniflb (iflbno); 
begin iflbno ^0; end 

55. Procedure getflb (iflbno, errflg); 

begin comment; This routine gives out a* new flow block number 
if (iflbno > noflb) then error; return f i 
iflbno ^iflbno+1; 
nf Iblk ( 1, iflbno ) 2; 


56. Procedure entflb (tsrpe , stno,kdbno, if Ibno); 

begin comment; This routine enters type of segment etc, for 

which flow block is being used; 
nf lblk( 2, if Ibno) — type; 
nf lblk( 3, if Ibno) .e- stno; 
nf lblk( 4, iflbno) ^ kdbno; 
nflblkd, iflbno) 5; 

end 

57. Procedure nxtflb (iflbno, nentry, entry); 

be gin comment; This routine enters successor of this flow 

block; 

if (nf Iblk ( 1, if Ibno ) > iflbsz) then 

begin nflblk (iflbsz, if Ibno) ^ kntmrk; 
getflb (iflbno, errflg); 

end 
f i 

itm nflblk (1, iflbno); 

nf lb Ik ( it m , if Ibno ) — nent ry ; 

nflblk ( 1, if Ibno ) ■#-— nf Iblk ( 1, if Ibno )+l; 

end 

58. Procedure endflb (iflbno); 
be gin itm ^ nf lblk( 1, iflbno ) ; 

nf lblk( itm , if Ibno ) ■« — marke r ; 

nf Iblk ( 1, if Ibno ) ^ — nf lblk( 1, if Ibno )+l; 

end 



59. Irocedure ch.]£Lb (iflbno, wound); 

'be;g:in connent: This routine checks whether flowhack is 

wound or not-, 
wound ’f lase ’ ; 
itm*- nf Ihlk ( 1, if Ihno ) ; 

if (nflhlk (itm-l, iflhno) = nekker) then wound true ' 
f i 

end 


60. Procedure gtkdno (nocdbl, iflb); 

begin conment; This rouiine gets code-block of a flowblock 

given; 
nocdbl^f— - 0-. 

if (iflb 5 ^o) then nocdbl.^ nf lblk( 4, if lb); f 1 

end 

61. Procedure inicdb (:kdbnc); 
begin kdbno 0; end 

62. Procedure getcdb (kdbno); 
begin kdbno — kdbno+1; kdbptr^s — 1; end 


65. Procedure entcdb (kdbno, class, length, token(l; 1000 ) , 
entno ) ; 

begin coment; This routine enters a token into code block; 

1 length; 
if (1=0) then l^tl; f± 
spavlb<- kdbsz-kdbptr; 
if (spavlb < 1+2) then 

begin kdblk (kdbptr -kdbno) knt; 
getcdb (kdbno); 

end 
f i 

'' kd^ Ik (kdbptr, kdbno )<^ — class; 
kdolk (kdbptr+1, kdbno) +— length; 
kdbptr ■+-- kdbptr+2; 
if ( length=0 ) then 

begin kdblk ( kdbptr, kdbno ) -^ entno; 
kdbptr 4 — kdbptr+1; 

end 

else for i = 1 ^ length do, 

kdblk (kdbptr, kdbno) ■’f— token(i); 
kdbx^tr -f — kdbptr+1; 
od 


64. _ Xrocedure cheokd (kdend, kd'bno); 

'bef;lxi comnent; This checks to see a codehlock end has 

come> 

kdend ^ — ' f als e * *, 

if (kdhlk (kdhptr, kdhno)=inrkr) then kdend true ' fi 

end 


65. Irocedure endcdh (kdbno); 

he ig:in kdhlk (kdhptr, kdhno) — naxkerj 
kdhptr kdhptr+lj 

end 

6'6. Procedure kdtkn (kdhno, class, length, token( 1; 1000 ) ) 

begin comnent; This routine gets next token of code block*, 
class< — kdhlk (kdhptr, kdhno )j 
if (classj^knt) then 

he gin length — kdhlk (kdhptr+1, kdhno )j 
kdhptr kdbptr+2*, 

1 — length*, 

if (1=0) then Isbij f i 

for i=l tfl 1 

' token( i)*«*— kdLhlk(kdhptr, kdhno)*, 
kdhptr kdhptr+l} 
od 

end 

fi 

end 


67. Procedure inidcl} 
begin idclpt-e- 1; end 

68. Procedure entdcl (class, length, token(l; 1000 ) ,entno, 
errf Ig); 

begin comment: This routine enters a token in declarative 
block} 

ispavl^ idclsz - Idclpt; 

1 1 ~ length} 

if (1=0) then 1=1} fi 

if (ispavl < 1+2) then error} return ^ 
idclhl ( idclpt )^ — class} 
idclhl (idclpt+l) -s — length} 
idclpt >«— idclpt+2} 
if ( length=0 ) then 

begin idclhl( idclpt ) -t— entno} 
iddlpt ^ idclpt+l} 

end 

else for i = 1 t^. length ^ 

id.clhl ( idclpt ) .r-tcken( i)} 
idclpt ^ idclpt+l} 


od 
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69 • Procedure enddclj 

begin id3lbl(idclpt)-f — marker j end 


70. Procedure chendl (d::a.end)5 

begin comment t This routine checks to see if end of 

tokens achieved : 
dclend ^ — 'false ' 

if ( idclbl( idclpt ) = mrkr) then dclend < — 'true' f i 

end 

71. Procedure dcttkn (class, length, token (1:1000))? 
begin comment: This routine gets next token from dec- 
larative block; 

class ^ — idclbl (idclpt); 
length ■♦-idclbi. (idclpt+l); 
idclpt ■<—idclpt^-2; 

1 ^ length; 

if (l=0) then 1<?— 1; f i 

for i=l to, 1 d_p 

token( i) ^idclbl (idclpt); 
idclpt -$-*• idclpt-: 1; 
od 


72. Procedure prsgmt (temp(l:72), iflbno, kdbno, errflg, 

endfle, deflg); 

begin comment: This routine processes a segment; 

init ialis d , t able s , _ blocks ^sd^§n t^ , bt ^9^ > 
get flow ahd" code'^'blocts; ? 

newlxi, fchtkn( class, len^h, token( 1: lOOO)); 
tsrpe^ — 0; sbrtfn.iic— iabs ( class ) -10 -f-l; exptyp«-0; 
if (class = sbrtcl v class = fncls v class = ibldcl) 
then begin adjseg (class, length, token (1:1000), 

sbrtfn, exptyp, typcl, errflg); 
type-e — sbrtfn; 

dolxi (temp(l:72), endfle); newlxi; 
fchtkn (class, length, token (l;1000)); 

end 

else kls ^ iabs (class); 

comment: check for fimction subprogram like 
'integer function' etc; 
if (kls ^120 A kls k 123) then 

be gin exptyp ^ 1; typcl«-kls/lOO; 
sbrtfn -f— 2; 

fchtkn (class, length, 
token (i:1000)); 
adjseg (class, length, token 
( 1: 1000 ) , sbrtfn, 
exptyp, tjnpcl, errflg); 
dolxi (temp(l:72); endfle); 
newlxi; 
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fchtkn (class, length, token 
(It 1000) )j 

end 
f i 
f 1 

entstn (-9999, entno, errflg); 
entflh (type, -9999, kdhno, iflbno )5 
ad 3 sin (entno, 0, iflhno, errflg )'f: 
entcdh (kdhno, kntncl, 8, kntnue, nd-um)*, 
entcdh (kdhno, keol, 1, mrkr (Itl), nd‘um)j 
while (class ^ endcls) ^ 

prstmt (class, length, token (1:1000), iflhno, 
kdhno, type, iduDino, errflg); 
dolxi (temp ( 1 : 72 ), endfle); newlxi; 
fchtkn (class, length, token (1:1000)); 

*d 

comment: we got an ElTD stmt.; 

chkf Ih ( if Ihno , wound ) ; 

if ( —1 wound) then endflh (iflhno) ^ 

chkstk (empty); 

if ( — \ empty) then error; fi 


73. Procedure prstmt (class, length, token( 1: 1000 ) , 

iflhno, kdhno, type, idumno, errflg); 
begin comment: This processes a statement of the segment; 
stno <f— 0; 

if (class = cmtcls) t hen 

he gin entlne Tclass, length, token (1:1000), 
1, entno, errflg); 

entcdh (kdhno. class, 0, t oken( 1: 1000 ) , 
entno) ; 

entcdh (kdhno, keol, 1, mrkr(l:l), 
ndum) ; 

end 

: else if (class e declcls) then prdecl (class, 

length, token 
(1:1000), errflg); 

else comment: check for stmt, function; 
if (class = idols) then 

begin for i = 1 tp length do 
3 var( i )V- token(TJ; 
od 

3 inth length; 

fchtkn (class, length. 

token(l:1000)J; 
if ( classyi^lpaiel) then 
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begin If ( c las quid) 
~bh.en error; 
return 


fi 

comment; we pro- 
cess 
assign- 


ment 
stmt . ; 

enter rest of 
stmt, into code 
block, after 
entering into 
tables; 

end 

else schdmn( ilnth- ;ivar 

( 1: 10) .found, 
entno); 
if (found) then 

begin enter rest 
of stmt. in 
to code 
block after 
entering 
variable/ 
const, into 
tables; 


end 

else comme nt ; 

we got stmt, 
function; 
enter name 
of function 
and its argu- 
ments in 
subprogram/ 
function name 
table; enter 
stmt, into 
code bl»ck; 
f i 
fi 


end 

else comment: we check forsteat, no. 
if (class=stnocl) then 

begin stno ^ token( 1); 

ent stn ( stno , entno , 
errf Ig) ; 
nent ■<— entno; 
fchtkn (class, length, 
token (1:1000)); 
if ( class=fmtcls) then 
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end 


fi 


entlne( olass, 
length, 

to]£en( 1; 1000 ) , 
7,entno, 
errf Ig) j 
adjstn^nt, 1, 

entno, errf Ig)'} 
return 
f± 

end 
f i 

prblst ( stno,nent, class, 

length, token( 1: lOOO) , 
if Ihnn , kdhno , t ype , 
idumno , errf Ig ) *, 
fi 
f i 


74. Procedure prblst( stno, nent, class, length, token 

(Is 1000), iflbno, kdbno, typje, idumno, errf Ig)} 
begin comments This processes a blockable statement; 
if ( stno^O ) then 

begin chkflb ( if Ibno, wound ); 
if ( » wound ) then 

begin nxtflb (iflbno, nent,errflg); 

endcdb (kdbno); endf lb ( iflbno)' 

end 
f i 

getflb (iflbno, errflg); getcdb (kdbno); 
entf lb( type , stnojcdbno, iflbno); 
adjstn (nent, 0, iflbno, errflg); 
entcdb(kdbno. istnGl,0,token( Is 1000), 
nent ) ; 

end 
f i 

comments now wo process rest of statement excluding 
stmt. no. ; 
else class of 

declass; procdo(class, length, token(l: 1000 ), if Ibno, 

kdbno, type, idumno, errflg); 

noncontrol ^ 

and ) 

logical IP ) 5 case class of 

class ) non- if ( classji^kallcl) 

controls then enter the 

statement into 
code block 
after entering 
variables/ 
constants into 
re spective 
tables; 
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log IF 


else enter 
stmt , int 0 
code blockj 
enter the 
subroutine 
called in 
subprogram./ 
function table 
alongwith 
arguments*, 
f i 

els ; entcdb(kdbno, 

class, length. 
token( 1: 1000)), 
if ( cla.ss/lparcl) 
then error*, 
retiurn ^ 
endtedb (kdbno, 
class, length. 
token( 1: 1000 ) , 
ndum)*, 

fchtkn (class. 


length, token 
( 1: 1000 ) ) •, 
entxpr( class, 
length, token 
( 1: 1000 ) , kdbno, 
errflg)^ 

nsvdbl-f — if Ibno; 
entcdb( kdbno, 
keol. l,mrkr( 1: l) , 
ndimi ) } 

endcdb(kdbno) j 
entstn(-9999, 
entno, eriflg); 
nxt f lb ( if Ibno . 
entno, errflg); 
getf lb(iflbno, 
errf Ig) } 
getcdb(kdbno )5 
entflb( type, -9999, 
kdbno , if Ibno ) ^ 
ad j s tn( entno , 0 , 
if Ibno , err fig ) *, 
prtgt( class, 
length, token 
( 1; 1000 ) , nsvebl, 
kdbno, if Ibno, 
type, errf Ig)*, 


end 
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end 


Control) 
other ) 
than I 
log IP, ] 
DO, END ) 


comments now wo check whether stmt. 

ends range of a DO; 
chendo( stno, dument ,parnt , fuent , 
stpend, doend, errf Ig) ; 
while ( — i dc! end) do 

enter parnt = parnt+stpent and 
IE(parnt 4 . fnent) go to 
dument 


od 


into the code hlock; 
nxtflb (iflhno, dument, errf Ig); 
entstn (-9999, entno, errf lg)s 
nxtflfe ( if Ihno, entno, errf Ig) ; 
endcdh (kdhno); endf lb (iflhno); 
getflb ( iflhno, errllg); getcdh 

(kdhno); 

adjstn ( entno, 0, iflhno, err fig); 
entflfe (type, -9999, kdhno, errf Ig); 
entcdh (kdhno,kntncl, 8,kntnue 
(l;8), ndum); 

entcdh (kdhno. keol, l,mrkr( 1; l) , 
ndum) ; 

chendo (stno, dument , parnt, fnent, 
stpent, doend, errf Ig) ; 


; prctl ( class, length, token ( 1: 1000 ) , 
if Ihno, kdhno, errf Ig) ; 


end 


75. Procedure prccdo ( class, length, token( 1: 1000) ; if Ihno, 

kdhno, type, idumno, errflg); 
begin comment: This routine processes a DO statement; 
get all parameters of DO stmt,; 

comment: do range, parnt , inent, fnent, spent contain 
all the values. If step not given then it 
is taken as one; 

enter 'parnt=inent ' in code hlock; 
getdum( idimino ) ; 
entstn( idumno, entno, errf Ig) ; 
nxtf lh( iflhno. entno, errf Ig); 
endflh( if Ihno); endcdh (kdhno); 
getflh (iflhno, errflg); get cdh( kdhno ) ; 
entflh (type, idumno, kdhno, iflhno); 
adjstn (entno, 0, iflhno, errflg); 
phhstk ( dornge, entno, parnt , fnent, stpent, errflg); 
entcdh(kdhno, intcls,0,token(l:1000) , entno) ; 
ent c dh( kdhno, kntncl, 8,kntnue( 1: 8), ndum); 
entcdh( kdhno, keol, 1, mrkr( 1: 1) ,ndiam); 


end 
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76. 


begin 


Procedure prctl( class, length, token( 1; lOOC^, if Ibno, 
kdbno,errflg)} 

This routine processes control stmts, other than 
log. IF, DO and END; 

entcdb (kdbno, class, length, token 
(l;1000), ndurn); 

fchtkn( class, length, token ( 1: 1000 ))? 
if ( class?^lparcl) then error; return ^ 
entcdb (kdbno, class, length, token 
( 1; 1000 ) , ndum ) ; 

fchtkn (class, length, t oken( 1: 1000 ) ) ; 
entxpr (cla,ss, length. token( 1: 1000) , 
kdbno , errf Ig ) ; 

if (class 9 ^intcls) then error; return ^ 
entstn (token(l), entno, errflg); 
entcdb (kdbno, class, 0, token (1: 1000), 
entno) ; 

nxtflb ( if Ibno, entno, errf Ig) ; 
for i = 1 t^ 2 do 

fchtkn (class, length, token( 1; 1000 ) ); 
if ( class 5 ^kmn-acl) t hen error; return 
f i 

entcdb(kdbno, class, length, token 
( 1: 1000) , ndum) ; 

fchtkn ( cla.ss, length, token( 1; 1000 ) ) ; 
if ( class?^intcls ) then error; return 
f i 

entstn (token(l), entno, errflg); 
entcdb(kdbno, class, 0, token( 1: 1000 ) , 
entno ) ; 

nxtflb (if Ibno, entno, errflg); 


case class of 
arith. IF) 
class ) 


go to 
class; 


pd 

f chtkB( class, length, token(l: 1000 ) ); 
entcdb (kdbno, class, length, token( 1; 1000 ) 
ndum) ; 
case class of 
assgndi 

; entsmpi. ( length, token ( 1: 1000 ) , 

° ^ 0, ndum, entno, errflg) ; 

entcdb (kdbno, class, 0, token 
( 1; 1000 ) , entno ) ; 
fchtkn( class, length, token 
(1:1000)>, 

if ( classjfckmmacl) then error; 

return 


fi 

entcdb (kdbno, class, length. 

token( 1: 1000 ) , ndum); 
fchtkn( class, length, token 
(1:1000) ); 
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if ( class^^lparcl) then error? 

return 

fi 

entcdh (kdbno, class, length, 
token( 1: 1000 ),ndum)? 
f chtkn( class, length, token( 1:1000/^0 
entmah ( class, length, token 

(1;1000), kdhno, if Ihno, 
errflg)? 

ordnry ^ 

go to ent stn(token( 1) , entno, errflg)? 
cl ) entcdh (kdlncurri-asSyO, token 

( 1; 3^00 ) , entno ) ? 
nxtflh (itprSno, entno, errflg)-, 
f chtkn( cl-as3, length, token 
( 1 : 1000 ) ) ? 

compute dN 

go to 3entcdh(kdhno, class, length, 
cl. )token( 1; 1000 ) ,ndum)? 

fchtkn( class, length, token 

( 1 : 1000 )>, 

entranh ( class , length, token 
(islOOO), kdhno, 
if Ihno, errflg ) ? 
if ( clasSj^kmmacl) then error-, 

return 

f i 

entcdh (kdhno, class, length, 
token (1; 1000 ) , ndum) ? 
fchtkn (class, length, token 
( 1 ; 1000 ))-, 

3^ (class idols) then error? 

return 

fi 

enbsmp ( length, t(cken( 1: 1000 ) , 
0,ndum, entno, errflg)? 
entcdh (kdhno, class, 0 , token 
(1:1000), entno)? 
fchtkn (class, length, token 
(1:1000))? 


end 
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stop/ 1 
return: 
class ■ 


entcd'b(kdbno, class, length, 
t oke n (1:1000), ndum ) *, 
nxtflh ( if l'bno,0 , errflg) } 
f chtkn ( class, length, token( 1: 1000 ) ) •, 
if (class=intcls ) then 

begin entcns~T class, length 

token( 1; 1000 ) , 
entno, errf lg)> 
entadb(kdbno , class, 0. 

token( 1: 1000 ) , 
entno ) *, 

f chtkn (class, length, 

token( 1: 1000 ) ) ; 


eiiu 

if ( class?((keol) then error*, return ^ 

entcdb (kdbno. class, length, token(l; 1000 ), ndum) j 

endf lb(iflbno)j endcdb (kdbno); 


77 . Procedure prtgt (class, length, token(l: 1000) , 

nsvebl, kdbno, if Ibno, type , err fig); 
begin This prccesses target of logical IF; 

if (class i non-control a class / control o/t log. 

IF, DO, BITD ) then error; return ^ 
case class of 

non-control: enter the stmt, into code block; 

entstn (-9999, entno, err fig); 
nxtflb (if Ibno, entno, errflg) ; 
endcdb (kdbno ) inxtflb( nsvebl, entno, errflg)? 
endf lb (if Ibno); endf lb (hnsvebl); 
control: prctl (class, length, token (1:1000), 

if Ibno, kdbno, errflg) ; 
entstn (-9999, entno, eixflg); 
nxtflfe (nsvebl. entno, errflg) ; 
endf lb (nsvebl); 

end 

getflb (if Ibno, errflg); get cdb( kdbno); 
entflb (type, -9999, kdbno, if Ibno); 

adjstn (entno, 0, if Ibno, errflg); ; 

entcdb (kdbno, kntncl, 8, kntnue (1:8), ndiom); 
entcdb (kdbno, keol, l,mrkr(l: 1) ,ndum); 


end 
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78. Procedure prdecl (class, length, token( 1: 1000 ) , 

errflg)j 

gi-n comment: This routine processes all declarati-ve 
statementsj 

if ( class=ixtncl) then 

"begin enter stmt, into declarative block, 

after entering variables in subprogram/ 
function table j 

end 

else if (olass=cmncl v class=eqc l) then 

begin enter stmt, as it is into 

declarative block, but enter 
dimensioned var, of 60MM0N 
stmt, into corre ponding table j 

end 

else if ( class/datacl) then 

begin enter stmt, into dec- 
larative block, after 
entering variables into 
simple/dimensioned var. 
t ab le 

end 

else enter data stmt, into declara- 
tive block, after entering 
variables/constants into 
their respective tables^ 


end 


fi 


fi 


fi 


79. , Procedure entvar ( class, length, token(l; 1000), dclbit, 

ntypcl, errflg)? 

begin Shmiaent; This routine enters a variable of decl. stmt, 

for i = 1 ia length do nsvar(i)<= — token(i)} cd 
nsvlnt <^lengthj 

fchtkn( class, length, token ( 1; 1.000 )\ 
if (class = Iparcl) then 

begin entdmn (nsvlnt ,nsvar (1:10). dclbit, 
nt 3 rpcl, entno, errf Ig) j 
entdcl (idcls, 0, token(l; 1000) , entno, 
errflg)| 

f chtkn( class, length, token ( 1: 1000 ) ) ; 
getarg (class, length, token(l: 1000). 

numarg, arg( 1: 5) , 0,errflg)j 
adjdmn (entno,numarg, arg(l: 5) , errflg)j 
fchtkn( class, length, token(l: 1000 ))5 

end 

else entsmp (nsvlnt ,nsvar ( 1: 10 ), dclbit , ntypcl, 

entno, errf Ig) ; 

entdcl (idcls, 0, tokentl: 1000 ) , entno, 
errflg) j 

■-Xi 


end 
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80. 

beiSln 


end 

81. 

begin 


end 

82. 

begin 

83. 

begin 


Procedure entid ( class, length, token (1; 1000 ), entno, 

kdbno,ndclbt , err fig)-, 

f or i=l length ^ nsvar( i)-?— token( i) *, od 
nsvlnt ^ lengthj 

fchtkn (class, length, token (1:1000)); 

if ( classj^lparcl) then entsmp (nsvlnt, nsvar(l:10); 

0, ndum, entno,'errf Ig) ; 

else schdmn (nsvlnt ,nsTar(l: 10), found, entno); 
if { found) then 

begin schsfn (nsvlnt ,nsvar(l: 10 ) , found , 

entno) ; 

if ( — u found) then 

be gin prc^unlnsvlnt ,nsvar ( 1: lO) , 
class, length - 
t oken( 1; 1000) , 
entno, kdbno, 
errf Ig) ; 

return 


end 


fi 


end 


fi 


f i 

if (ndclbt=l) then entdcl( idols, 0,token(l: 1000), entno, 

p T*-p'P *1 ^ ^ 

else entcdb(kdbno, idcls , 0 , token( 1: 1000 ) , 
entno); • 
fi 


Procedure prcfun( nsvlnt, nsvar( 1: 10 ), class , length, 

token (1; 1000) , ent no, kdbno, errf Ig); 
comment: This routine processes a function call; 

ent sfn( nsvlnt , nsvar (l: 10 ) , entno, errf Ig, flag) , 
ns^ent^ — entnn-, 

entcdb (kdbno, idcls , 0, token (1: 1000 ), entno); 
entcdb (kdbno, class, length, token (1: 1000 ), ndum); 
get arguments of function call, after entering them 
in tables; 

adjsfn (nsvent, noarg, arg(l:20), 2,ndum, 0 , errf Ig); 
fchtkn (class, length, token (l:1000)); 


Procedure inidum (no); 
no — 0; end 

Procedure getdum (no); 
no e— no-l; end 





84 . 


Procedure entxpr (class, length, token( 1: 1000 ) , 
kdbno, errflg)j 
be gin parncj; -e- 1* 

if ( class=lpar cl) then parnct parnct+l-, fi 
while (parnctjfcO) do 

if (class=idcl^ then entid (class, length, 

token (1:1000), entno, kdbno, 0,errflg)*, 
else if (class=int .els v class=realcl) then 
begin entens ( class, length, token 
( 1; 1000 ) , entno, 
errf Ig) ; 

entedb (kdbno, class ,0 , token 
( 1; 1000 ) , entno ) *, 
f chtkn( class, length, token 
(1:1000))-, 


end 

else entedb 

f chtkn 
fi 


(kdbno, class, length, 
token( 1: 1000 ) ,ndum)^ 

( class, length, token( 1; 1000)) 


f i 

if ( class=lparcl:l then parnct < — parnct-i-lj ^ 
if ( class=rparcl) then parnct’'?- parnct-l^ ^ 
od 

entedb (kdbno, class, length, token( 1: 1000 ) , ndum)-, 
f chtkn ( f.lass, length, token( 1; 1000 ) ) ; 

end 


85. . Procedure dolxi (temp(l: 72) , endfle) j 

be gin clstmt ( stmt (1; 700; , temp (1:72), endf le , Instmt, error) •, 
i<^-0*, klch^O-, klass2$— 0*, 

while (klch 5 i^ klblnk) dp nxtehr (stmt (l:700),i)j pd 
lexcal (stmt ( 1; 700 ), i, Instmt , error)-, 

end 

86. Procedure getarg ( class, length, token( 1: 1000 ) ,numarg, 
arg, jdclbl, errflg)-, 

begin numarg e- 0*, state 1; 
loop; kls^s^ 5 } 

if tclass=idcls V class=intcls ) then kls ^ class+lj 

a 

if (classarparcl Vclass=kmmacl) then kls ^class-5; fi ; 
ntempii~- fsmch (stak, kls)> 
nact ntemp/lO} 
nst8.te -Sr- ntemp-nact*10-, 
case nact of 
id or 

c en st ; numarg — num ar g+1*, 

^ ( class=idcls) then entsmp (length, 

t oken( 1: 1000 ) , 0 , 
ndum, ent o, errflg) j 
else entens (class, 
length, 

t«jken(l: 1000 )•• 
entno, errflg) 
f i 
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arg (n-umarg) « — entnoj 

if ( 3 dclbl=l) then entdcl (class, length, 

tohen(l;1000), 
nd-um, errflg)} fi 

f chtkn ( class, length, token( 1; 1000 ) ) *, 

st ate nstate j 

go to loop; 

comma: if (jdclhl=l) then entdcl ( class, length, token 

(1:1000), ndnm, 
errflg); ^ 

f chtkn (class, length, token( 1: 1000 } ); 
state •< — nstate; 
go to loop; 
rpar; return 
others: error; 

end 

end 


87. Procedure entnmh ( class, length, token( 1: 1000 ) ,kd'bno, 
if Ibno , errf Ig ) ; 

begin state 1; 

loop:kls 4; 

if ( class=intcls) then kls<^class; fi 

if ( class=rparcl V class=kmmacl) then klst— class*^6; 

fi 

ntem .s? — mchtb (state, kls); 
nxt ’<? — ntem/lO; 
nstate -s^nteip-nxt^lO ; 
case nxt of 

comma: entcdb(kdbno. class, length, token(l: 1000 ) 
ndum) ; 

f chtkn ( class, length, token (1:1000)); 
state — nstate; 
go to loop; 

stmt, no.; entstn (token( l) , entno, errf Ig); 

entcdb(kdbno, class, 0 , token( 1: 1000 ) . 
entno ) ; 

nxtf lb ( if Ibno, entno, errflg); 
f chtkn ( class, length, token ( 1: 1000 ) ) ; 
state ^ — nstate ; 
go to loop; 

fpar: entcdb (kdbno. class, length, token (l: 1000 ) ,- 
ndum ) ; 

f chtkn( class, length, token ( 1: 1000) ); 
others: error; 

end 

end 

88, Procedure inistk; 
begin istkpt 0; end 
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89 . 


be ffin 


end 


Procedure pshstk (dornge,entno,parnt ,f^ent , 

stpent , errf Ig) ; 

if (istkpt istksz) then error; return f i 
istkpt-<^ istkpt+1; 

idostn ( istkpt ) Kf— domge; j ent( istkpt )<?— entno; 
ipar (istkpt)^ parnt; ifin (istkpt) ^ fnent; 
istep (istkpt) — stpent; 


90 . 


begin 

end 


Procedure chkstk (empty); 
empty — ’flase'; 
if (istkpt=0) then empty ■ 


'true 


fi 


91 . 


begin 


end 


92 . 


begin 


93 . 


begin 


Procedure chendo ( stno, dument ,pamt, fnent, 

stpent , doend, errf Ig) ; 

doend-? — 'false'; 
if (istkpt ‘g O) then 

begin if ( stno=idostn( istkpt ) then 

begin dument j ent (istkpt ) ; 

pamt ipar ( istkpt ) : 

fnent — ifin (istkpt); 
stpent 'Sr- istep (istkpt); 
doend -e — 'true'; 
istkpt istkpt-1; 

end 

fi 

end 
f i 


Procedure inibuf (j); 
j 0; end 

Procedure entbuf (khar,j); 
if (jz=72) then prtbuf; 

for i=l to 5 do motbf ( i)t^blank; od 
j'*— 6; motbf ( j ) ’!?— kntmrk; 
fi 


end 


j dtl; 

motbf ( j ) ■«— khar; 


94 , 


95 , 


begin 

end 

begin 

end 


Procedure prtbuf; 

if buffer does not contain 'C0NTI?TUE' stmt, then 

print buffer; fi 


Procedure bufcmf (entnOjj); 

fchlne( class, length, token (1: 1000), entno,errf Ig) 
for i = 1 to length entbuf ( token( i) , j ); 
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96 . Irocedure iDufcns (entno^j)*, 

fchcns ( class, length, token( 1; 1000) , entno, errflg)j 
j f (class 4 ^ intcls) then for i=l t^ length do 

enthirf (token (i), j )? od 
else if (lengtt^l) then error-, return fi 
knst token ( iJi ign-e- 0-, 
if (knst c. o) then sgn — Ij ^ 
knst iabs(khst 
se]'cns(knst. In, d®g( Is 20 ) ) ; 
if (sgn=l) then enthuf (minus. j ); fi 
for i=l ^ In enthuf (dig(i), jT7 od 
fi 

end 

97 . Procedure buf dmn( entno, 3 ) ; 

begin fchdmn ( entno, Inth, token( Is 1000 ) . exptyp, typcl, 

numarg, arg( Is 5 ) , errf Ig) 
for i=l t^ Inth ^ entbuf ( token( i) , 3 ) *, od 

rnd 

98 . Procedure bufsmp (entno,3); 

begin fchsmp (entno, Inth, token( Is 1000 ), exptyp, typcl, errf Ig); 
for i=l Inth ^ entbuf (token( i) , 3 )-, od 

end 

99. Procedure bufsfn (entno, 3)5 

begin fchsfn ( entno, Inth, token( Is 1000 ) .numarg, arg(l: 20 ) , 

defbit, defeat, errflg); 
fox i=l Inth _do entbuf (token(i), 3 )*, od 

end 

100 . Procedure bufstn (entno, 3); 

begin fchstn (entno, stno,fmtflg, link, errflg)-, 
sgnf— 0-, 

if ( stno < 0 ) then sgn ^ 1*, Tl 

stno ’se- iabs( stno ) j" 

sepcns (stno. In, dtg( Is 20 ) )> 

if ( sgn=l ) then ent buf ( minus , 3 ) -, fi 

for i=l In ^ entbuf (dig(i),3)j cd 

end 

101 . Procedure sepcns (nmbr. In, dig( Is 20 ) ); 

begin (nmbr< 9) then In — 1-, dig( 1) .e^nmbr*2 t 30+bbbbb-, 

else In — 0 *, 

while ( nmbr?!^ ) ^ 

In — ln+1-, 

temp (In) nmbr-nmbr/lOa^lO-, 
nmbr ^ nmbr/ 10 -, 
od 

for 1 = 1 to In do 

dig(i) tempXln-i+l)*2 30 +bbbbb-, 

»d 

fi 

end 
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102 . 


Irocedure prtseg (errflg)*, 
legin fchseg (nseg (l;50))} 
loc-^— !•, 

if (nseg( loc )=inain) then return fi 
else j 0; 

for i=:l ■^6 entbuf (blank, j ); _od 
if (nseg(loc )=bld£,ta) then enter 'BLOCK 

DATA’ into 
buffer*, prtbuf', 

else if (nseg( loc )=isbrtn) then enter 

' SUBROUTINE ' in 
buffer-, 

else if (nseg( Icc )j^functn) 

then error*, return ^ 
if Tiiseg( loc+l)=l) then 

begin enter INTEGER,* 
into buffer-, 

end 

enter 'EUIOTION' 
in buffer-. 


fi 

loc ^ A't lnth<^nseg( loc ) -, loc? — 

loc+l-, 

for i=l to 2 entbuf ( blank. .1 ) od 
for i=l Inth do 

entbuf (nseg( loc ) , j ) -, 
loc« — loc+l} 
od 

if (nseg(loc )?(0 ) then 

begin enter arguments of 

subprogram into buffer; 

end 


end 


fi 


f i 


f i 

prtbuf} 


103. Procedure prtdcl(errf Ig)} 

begin inidcl; 

chendl( dclend ) ; 
while ( ' dclend) dm 

dcltkn( class . length, token( 1: 1000 ))*, 
if (length=0) then error-, return fi 

j -f— 0 } 

for i=l ^ 6 entb;jf (blank, j); od 
for i=l t 2 Inth ^ entbuf (token( iTTd )> 
for i=l 2 entbuf (blank, j); od 
dcltkn (class, length, token( 1; lOOOTTj 
while ( class?^keGl) ^ 
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end 

10 4 . 

“begin 


od 


if (class^^intcls A leng-fch;*^) then for i=l 

to length do 
enth-uf (token 
( i ) , .1 ) ; od 

else if (class=:intcls) then 

“begin nmbr ^ token( l) ; 

sepcns (nm“br, ln,dig(l: 

20 ))*, 

for i=l tcL In do enthuf 

(dig(iT7a)-, od 

end 

else entno token( 1)/10*, 

nxt>e-token( 1) - entno*10> 
enter simple or dimensioned 
var in “buffer; 

comment: If dimensioned var. 

then arguments are 
also stored; 
fi 


f i 

dcltkn( class, length, token( 1; 1000 ) ) ; 
od 

enter “blanks in “buffer at necessary places; 
prfbuf ; 

chendl ( dc lend ) ; 


Procedure pmtcd (errflg); 

comment; This prints out contents of all code blocks; 
cdblsz(nocdbl); inicdb(kdbno); getcdb(kdbno); 
whi le ( kd bno ^ mcfdb 1 ) do 
cheokd (kdend ,kdbnoT; 
while ( — i kdend) ^ 

kdukn (kdbno , class, length, token( 1; 1000 ) ) ; 
inibuf ( 3 ); 

if ( class=stnocl) then 

be gin entno^— token( l)/l0; 

fchstn (entno, isi-no,nd'uml, 
ndum2, errflg) ; 


isgn-f-0; 

if (istno < O) ;^en isgn.f— 1; f i 
istno.f-iabs( istnoTT 
sepcns (istno. In, dig( 1; 20 ) ); 
if ( isgn=l) then lnl's^ln+1; 

else Inl In; 
fi 

It) 1 {zf ^ 1 • 

i£(lbl^0) then for i=l Ibl do 

entbuf (blank, 

o); 


f i 


od 
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od 


if ( isgn=l) then entbuf (minus , j )*, 
f 1 

for i=l In ^ entbuf ( dig( i) , 

entbuf ( blank , j ) ; 
kdtkn (kdbno, class, length, 
token! 1: 1000 

end 

else f o.r i = 1 6 ^ entbuf (blank, j )*,od 

fi 

klprev-t— O', if lag ^ — 'false 

if ( class=lgif cl) then if lag — 'true'-, ^ 

while ( class?^keoi) 

if (cla.ss=knt) then getcdb (kdbno); 

kdtkn( kdbno, class, 
length, token 
( 1 : 1000 ))-, 
if end of line go 
back to theiloop-, 
fi 

i;f_ (length 5 (^ 0 ) t hen for ir=l to length do 

entbuf (tokenTi) , 
j); 

od 

else entno-#-token( l)'j 

fetch appropriate entry and nter 
into buffer variable name etc.-, 
fi 

klprev^ — class; 

kdtkn (kdbno, class, length, token( 1: 1000 ) ) ; 
od 

if ( if lag Aklprev=rpar ) then prlgif (kdbno, j, 

errflg, class, 
length, token 
( 1 : 1000 )); f± 

enter blanks in buffer where required; 
prtbuf ; 

cheokd ( kdendL, kdbno ) ; 
od 

getcdb (kdbno); 


end 
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105 . 

legln 


end 

106 . 

begin 

end 

107 . 

begin 


Irocednre prlgif (kdbno, 3 , errflg, class, length, 
token (1;1000))*, 

Comment: This routine enters target of a logical IF 
stmt, into buffer*, 
cheokd (kdend.kdbno)} 
jjf ( kdend; then error; return 
getcdb (kdbno); 

kdtkn(kdbno, class, length, token(l: 1000) ); 
while ( class5i^keol) ^ 

if (class=knt) then get cdb( kdbno); 

kdtkn ( class, length. 

token(l: 1000 j ); 

go back to the loop beginning; 
f i 

if (lengthj^O) then for i=l tfl length do 

entbuf ( token( iT, 3 ) ; 
od 

else entno <?— t oken( 1) ; 

fetch appropriate entry and enter 
into buffer variable name etc.; 
f 1 

kdtkn (kdbno , class, length, token( 1: 1000) ); 
od 


Procedure cdblsz (nocdbl); 
maxf lb ( if lb ) ; 
gtkdno ( no c db 1 , if lb ) ; 


Procedure prtfmt (errflg); 

comment: This routine prints all format statements^ 
stnosz (itblsz); 
t 2 £ ii = 1 to itblsz 

f chntn ( ii, stno,fmtf Ig, link, errflg) ; 
if (fmtflg=l) then 

begin sepcns ( stno, In, dig(l: 20) ); 
lbi^_ 5 -ln; 

if ( Ibly^D ) then for i=l to. Ibl do 

entbuf ( blank, 3 ) ; 
od 
f i 

for i=l til In do 

entbuf (digCil^.j); 

^d 

entbuf ( blank , 3 ) ; 
for i=l t^ 6 do 

entbuf ( fmt ( i ) , 3 ) ; 

entno -e — link/lO; 

nxt < — Iink-entno2l0; 

if ( nxt?^kmf mt ) then error; return fi 

bufcmf (entno,!^; 

enter blanks at the end of buffer; 
prtbuf ; 

end 
f i 


end 
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CRVTPR 

STACK 

R¥RD 

DMRSOR 

SUBFDR 

CRVTPR 

STMTRO 

RWPJ) 



$IBIDR 

SU8R2 

05/12/77 



SUBROGu 1 

$I8LDR 

SU BR3 

05/12/77 



SUB ROOD 1 

$18 LOR 

SUoR5 

05/12/77 



SU8R0001 

SIB LOR 

SUBRB 

05/12/7? 



SU8RC001 

$1BLDR 

suaR7 

C5/12/77 



SUB ROOD 1 

SiBLDR 

SUBRD 

05/12/7 7 



SU3RCGCI 

SIBLCR 

SUtjRlO 

05/12/77 



SUBrCCOI 

$18LDR 

SUSRi2 

05/12/77 



SUBROOOl 

SiBLDR 

SUBR14 

05/12/7 7 



SUBROGOl 

SiBLDR 

sueRi5 

0 5/12/77 



SUBRCCOI 

SIBLDR 

suaRi? 

05/12/77 



SUBROGOl 

SIBLDR 

Saco 

C5 /i3/77 

A -S'AmPLE 

ouTpur 

S80G0001 

SIBLDR 

SUB5 

05/12/77 



SUB 50001 

SIBlDR 

SUB9 

05/16/7/ 



SU890001 

SIBLDR 

sue 10 

05/16/77 



SUB 1000 1 

SIBLDR 

•SUB 11 

05/16/77 



SUB 1000 1 

SIBLDR 

SUB 15 

05/16/77 



suaioool 

SIBLDR 

SUB 17 

05/16/ 7 7 



SUBlOOOl 

SIBLDR 

MINU 

05712/77 



MINUOOOl 

$ I8L0R 

JYeTl 

05/12/77 



JYGTGOOI 

SIBLDR 

MEiENA 

05/12/77 



MEENOOOl 

SIBLDR 

priya 

05712/77 



PBiVOOO 1 

SENTRY 

CSG029 

MAIN 


I6LDR — JOB 

OCGCOO 



n. 

DECK 

•sue3 * 

5^1 

31457 

12. 

DECK 

* SU 66 ' 


34115 

13. 

DECK 

• SUER 13 * 


35421 

14. 

DECK 

•SUB2 * 


37 3 3 5 

15. 

DECK 

' SUBRll » 

❖ 

4063 3 

16. 

DECK 

•SUB4 0 

. fs 

41051 

17. 

DECK 

* SB 3 * 


42 25 2 

18. 

cecK 

•SUB13 » 


42 571 

19, 

oecK 

'SUE7 * 


43066 

20. 

DECK 

' PRNT * 


4332 6 

21, 

DECK 

• SUBR 20 ‘ 

•A. 

'r- 

5410 7 

22. 

DEC K 

» SUBR16* 

❖ 

54144 

23. 

DECK 

• SUBR 19 • 


54274 

24. 

D E C K 

•S817 • 

't* 

54 3 2 5 

25. 

DECK 

'S819 • 

.f. 

54553 

26, 

DECK 

•SU819 » 


56 040 

2 7, 

DECK 

•SU82C • 

AU 

'y’“ 

56062 

2 8. 

DECK 

*SUB22 » 


56252 

29. 

DECK 

’SUE23 » 


56313 

30. 

DECK 

•SUB2 6 * 


56335 

31. 

DECK 

• SUER21 • 


56 366 

32,. 

DECK 

'SUBR 22 » 

A. 

57012 

3 3. 

DECK 

•SUER 23 • 


570 3 5 

34. 

DECK 

'SU8R24' 


57110 

35. 

DECK 

' SUBR25* 


57157 

36. 

OECK 

• SUMA ' 


57266 

3 7. 

DECK 

*SUJA » 


57336 

38. 

DECK 

*VANI * 


57411 

39. 

DECK 

•MONA » 

■ 

57434 

40. 

DECK 

•JILL * 

> 

57464 

41. 

DECK 

C SCO 2 9 

•SUB16 • 


57523 


42. OECK 

» SB 1 » 


57607 

43. DECK 

» S32 • 

A. 

-R* 

65164 

■44» OcC.K 

»S8 4 » 


65 244 

45. DECK 

»S8« * 

^ ■ 

65503 

■ 46*" DECK 

»S86 • 


66 525 

"4 7.«. ' DECK 

1 S87 * 

sjc 

65 562 

4;8* .. DECK 

•sag • 


65614 

4'9 # ■ C ECK 

>S8 9 • 

■ 

65643 

60 # DECK- 

•SB 10 ' 


65673 

51. DECK 

•sen • 


65721 

52. DECK 

*S8 12 • 


66G60 

53. DECK 

‘S813 ' 


66102 

54. DECK 

•SB 14 • 


66136 

.55. DECK 

•S815 • 


66223 

56. .DECK 

*S816 » 


664 73 

57. DECK 

• SB 18 « 

.. A,*- , 

-TR ■ 

66646 

58, DECK 

•SUBRl » 

> 

66 743 

59, DECK 

•SUBR 2 • 


66T65 

60, DECK 

'SU8R3 * 


67205 

61. DECK 

'SUBRS • 


67307 

62. DECK 

'SUBR6 • 

; 5^: ■ ' 

67340 

63. DECK 

•SU8R7 • 


67362 

64, DECK 

'SUBR9 ♦ 


6 7603 ■ , 

65. DECK 

•SUBR 10' 

■■ 

676 34 

66. DECK 

'SU BR12« 


67656 

67. . DECK , 

* SUBR14' 


70145 

68. DECK 

'SUER15* 



69. DECK 

70. ■; deck:. 



.... 


• SUB5' 



^ ■ 72,. ' ;'0£eK. 

•SU89 ’ 


71702 

i;7"3.^"0.06eK 

'SUBIC » 


7172 5 

"'"74./ :/Of GK.' 

•SUBll ♦ 


71753 

75, OECK 

•SUB15 ' 


72215 

76. DECK 

' suei7 ' : 


72236 

'_^7, DECK 

•MINU » 


72266 


'JYCTI * 
•MEENA * 


72310 

72445 


000000 



80. 

DECK 

•PRIYA • 


72576 



81. 

SUBR 

MNSYFB* 


T2730 



82. 

SU8R 

•0USYF8* 


72767 



83. 

SUBR 

•POSTX • 


73020 



84. 

SUBR 

'CN 5TNT* 

^ , 

73331 



85. 

SUBR 

*FPR * 


73 341 



86. 

SUBR 

•FRC • 


73 342 



87. 

SUBR 

*IOS * 


73 343 



88. 

SUBR 

* R W C • 


73622 



89, 

SUBR 

'ACV • 


74776 



90. 

SUBR 

•HCV • 


75 070 



91. 

SUBR 

* I C V * 


75173 



92. 

SUBR 

•XCV ‘ 


75213 



93. 

SUBR 

•INTJ • 


75231 



94. 

SUBR 

•FPT • 


75 545 



95 ; 

SUBR 

C SGO 29 

♦XEM * 

:^c 

76 161 

IBLOR — JOB 

0000 


(* - INSERTIONS CR DELETIONS MADE IN THIS DECK) 




INPUT— OUTPUT BUFFERS 

76637 

THRU 

7 7776 

UNUSED CORE 

76526 

THRU 

76631 


OBJECT PROGRAM IS BEING ENTERED INTO STORAGE AT 11 HRS. 

REAL I,J,K 

C TO FIND THE BIGGEST OF THREE NOS. 

READ 1,1 , J,K 

1 FORMaT( 3f8. 5) 

8IG = I 

IFC J.GT.I ) GO TO 10 
iFIK.GT.n GO TO 5 
PRINT 2,1 
STOP 

5 PRINT 2,K 
STOP 

10 IF(K.GT.J) GO TO 5 ■ ^ 

PRINT 2,J 
. : ^STOP 

2 FORMAT (1H0, 5X ,F15 . 8) 

ENC 



SEGMENT header 


CO 

COMMENT AND FORMAT TABLE 

13 72 C TO FIND THE BIGGEST OF THREE NCS. 

-AO bO (3F8.S} 

-AO 60 ( lF0,5X,F15.fc) 

CONSTANT TABLE 

1 

2 

2 

2 

DIMENSION TABLE 

SIMPLE VARIABLE TABLE 
III 
J L I 

K I 1 

BIG 0 U 

SUBRCUTINE/FUNCTION TABLE 


STMT. NO. TABLE 




FLC^ BLCCK NO. 1 

aj:s^?{c 55t}}c 3*5 ^ 


b 

} 


9999 

1 

36 

56 

3^ 3{t jJ: 3{c 3^ 5§t 3}e 3jr ^ 3}i :$! ajj 3{t ^ 3^C 


FLCW BLOCK NO. 2 

7 

0 

-9999 

2 

46 


FLCW BLCCK KC. 3 

;{t 3{e ;<! * !<t s{( ){c * :Jr ,}[ 4 4: a)! 

8 
<3 

-9999 

3 

66 

86 


FLCW SLOCK NO. 4 



0 


-9999 

4 


76 


FLCW SLOCK NO. 5 

s)" ^ ❖ it 5f! ){i: 34 : 5i! * * !^S ^ 5> sj! 5{( 

7 

0 

"9999 

0 


FLCW BLOCK NO. 6 

7 

0 

5 

b 

0 

;jc sje 5ji # :t * >ie :4t « * :4e :$; j)t 3(5 # ;!jt :4c 3t * # 

FLCW BLOCK NC, 7 

s!e:4c 3}c * Jt # * iti i> * !)c it * iit it 4; ^ * 

8 

0 

10 

7 

96 

106 

>j( ;:4e 3{ $ aj 5)1 :t it # it it St it it # it it ❖ * 


FLCW BLOCK NO. 8 

!{( ^ ajt 34 it it t it it * it i* >t it it # it # * it 



0 


-9999 

8 


76 




FLCW BLOCK NO. 9 

5}4.«*sis5!i^ 5Sr^:{e3!(sj<4!#^ 

7 

U 

-9999 


9 




CUCE BLOCK No. 1 


-6C 

1C 


13 


IC 

-6C 

1 

9 

C 

9 

C 


9 

C 

1C 

c 

6 

C 


1C 



8 CONTINUE 

i $ 

0 11 


1 $ 

4 READ 

U 12 

1 » 

Q 14 


1 


t 


0 


24 


1 » 

0 34 

1 $ 





IC 


1 


sjc :^3^:Jc:i^3{c5{c gjc ;{e:^^ :§« :§« jjs 3 ^ sjt :;^ 


cuce BLOCK NC. 2 

-81 4 GOlO 

1 0 46 

1C 1 i. 

:{ 3 ^(^<:^t#;{^ 5 i^:^^^JJ 5 ^={^**^ 5 !c 3 iS’^:!}:^}:=^'S^!^i^!>^!^^❖i^!i<^J{^ 5 {< 5 }!!^!**!^^!^!*, 


CjCE block M. 3 

:5c ^ 5§{ 5^ 3§c:^ s^cjjcs^ ^ 5§ci$s :^5jc:^ a^s ajs 5 ^ :5c 3^5 ::5c :5t j^i 

-6C 3 COr^TIUUE 

1C 14. 


■/c 

7 

a 

-1 

c 

g 

1C 


2 

1 

0 

4 

0 

1 

1 


.GT, 


34 


14 






COCE BLOCK NC. 4 

!{.!<. sS af! Ji sj! #4t 5S‘:5!!i=T'>{<=i'=C‘={' 5^ aft ❖’(«>! 

-81 4 GOjO 

1 0 76 

1C 1 $ 

aStiJ: 5j# it ;^ij£3{i*.^ :4c :(le#3{8 5je :{(*!}€ 3{c 5}!^ s^> 


COCE BLOCK NO^ 




ic It 


-6C 5 PRIN‘5’ 


1 


0 


22 



0 


0 


14 


1C 1 $ 

-82 4 STOP 

1C II 


COCE BLOCK NC 

14 

-6C 

1 

c 

«•» 

C 

1C 

-82 

IC 


■ 6 

3{1 *5}! !f s{t^^i:{<Si5}:3}!!{ts{c^:ii:5!cs 

0 76 

5 PRINT 

0 32 

1 , 

0 J4 

1 I 

4 STOP 

1 $ 


COCE BLCCK NC. 7 

3(4 !( :(( 3}t sjciji :([3(: ;(( !(:3ji3(E jJlsJc ;( ;(t3)i:(c3;t3;:3(t3(::(c3!c3(i:(s;((3jc^:(c ^;(c 3 ( 1 3(; :((:(: 3(c3(c:(:3jc> 


1-s 

-7C 

7 

C 

-1 

c 


0 

2 

1 

0 

4 

0 


46 


IF 

C 

,GT. 


34 


24 


g 1 } 

1C 1 $ 


^^44 44‘4*4f44^4^4(4‘^4f4‘*4c4‘4f4<4!4t4f4f4‘4‘4f4^4f44‘4‘44fT^ 4^41:4(4^4^4!' 


COCE BLOCK NO. 8 

3(t3!t^3j!3(e3{c3}s:(:3jt3!c3jt3{«:{i;5i:i##43ie3»#3{()i6^sjt!(!j((3{eSlc*«*^jjj!#:5j53t(;j<{jf^#i^i^^j^^, 


10 76 

IG 1 $ 



CODE BLOCK NC. 9 

4: 4 4!!{i4i*5f<4:!5s4t4e4:!}!* 44;4444:444^4:4=#4!4«4:4t4=4t!{<!|!{i444 4- 





-6C 8 

CCNTINUE 




1C 1 

i 




-6C 5 

PRINT 




1 0 

42 




9 1 

f 




C 0 

24 




1C 1 





-82 4 

STOP 




1C 1 






5^ Jjc 3^i: 3§t 5j£ ^ s^i 

DECLARATiVt BLOCK 




sj^ 3?c 5jc 3jc 3$c 5{c :§t 3^c ^ 3jt ^ 3 


-2L 

4 

Rt^L 



0 

0 

14 



9 

i 

» 



0 

U 

'24 



9 

1 

f 



0 

9 

34 



10 

1 

$ 






JOB STATISTICS - 





CVERFLOWS 

UNDERFLOWS 

ca^B read 

LINES PRINTED 

CAROS PUNCHtO 

FORTR^iN SUB. ERRORS 

CO c coo 

CO c coo 
C0CC53 
C0C2 85 

CO C COO 
COCCOU 





